CheckedListBox befüllen mit Verzeichnissen/Dateien(namen), auslesen und kopieren

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    CheckedListBox befüllen mit Verzeichnissen/Dateien(namen), auslesen und kopieren

    Hallo erstmal,

    Ausgangs Situation:

    Ich habe Eine WindowsForm (Entwurf siehe Screnshot);

    2x CheckedListBox
    3x Button
    1x ProgressBar

    Ich möchte;
    1. Das die CheckedListBoxen die "Items" aus den Vorhandenen Dateien/Unterordnern aus den gewählten Verzeichnisen darstellen.
    2. Das sich das Programm merkt welche "Items" -> Ordner/Dateien ausgewählt wurden und dass diese sich dann in ein anderes Verzeichnis kopieren.

    Was ich bis jetzt hin bekommen habe/Ich mir noch erarbeiten will:
    Ich kann den CheckedListBoxen zwar sagen gebt den Pfad der Dateien wieder aber nicht "nur den letzten Teil"
    Dateien und/oder Ordner Kopieren


    Relevanter (teilstück, weil die anderen "Tabs" gehen schon so wie sie sind) Code bisher:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    4. Public Class mainForm
    6. Dim _CSC As String
    7. Dim _T9DB As String
    8. Dim _ValuePath As String
    9. Dim _Path As String
    10. Dim _FixedPath As String = My.Application.Info.DirectoryPath
    11. Dim _SolutionPath As String = _FixedPath + "Solution"
    12. Dim _TempPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Temp")
    13. Dim _DataPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Data")
    15. Private Sub mainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    17. 'Befüllen der Steuerelemente
    19. XT9CheckedListBox.Items.AddRange(IO.Directory.GetFiles(Path.Combine(_DataPath, "T9DB")))
    20. languageCheckedListBox.Items.AddRange(IO.Directory.GetDirectories(Path.Combine(_DataPath, "CSC")))
    21. End Sub
    23. Private Sub readIn2Button_Click(sender As System.Object, e As System.EventArgs) Handles readIn2Button.Click
    25. _ValuePath = _CSC
    26. _Path = Path.Combine(My.Application.Info.DirectoryPath, _ValuePath)
    27. _CSC = CStr(languageCheckedListBox.SelectedItem)
    28. _T9DB = CStr(XT9CheckedListBox.SelectedItem)
    29. End Sub
    31. Private Sub build2Button_Click(sender As System.Object, e As System.EventArgs) Handles build2Button.Click
    33. build2ProgressBar.Value = +10
    35. My.Computer.FileSystem.CreateDirectory((Path.Combine(My.Application.Info.DirectoryPath, "\Temp")))
    37. build2ProgressBar.Value = +20
    39. 'Daten werden kopiert
    41. My.Computer.FileSystem.CopyFile(Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\customer.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\customer.xml"), True)
    43. build2ProgressBar.Value = +30
    45. 'Daten werden kopiert
    47. My.Computer.FileSystem.CopyFile( _
    48. Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\others.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\others.xml"), True)
    50. build2ProgressBar.Value = +40
    52. 'Daten werden kopiert
    54. My.Computer.FileSystem.CopyFile( _
    55. Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\sales_code.dat"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\sales_code.dat"), True)
    57. build2ProgressBar.Value = +50
    59. 'Daten werden kopiert
    61. My.Computer.FileSystem.CopyDirectory(_Path, _TempPath, True)
    63. build2ProgressBar.Value = +100
    64. MsgBox("Vorgang erfolgreich Abgeschlossen.", MsgBoxStyle.Information)
    65. End Sub
    67. Private Sub clean2Button_Click(sender As System.Object, e As System.EventArgs) Handles clean2Button.Click
    69. 'Verzeichnisstruckturen werden bereinigt
    71. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "\Solution")) Then
    72. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "\Solution"), FileIO.DeleteDirectoryOption.DeleteAllContents)
    73. End If
    75. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "\Temp")) Then
    76. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "\Temp"), FileIO.DeleteDirectoryOption.DeleteAllContents)
    77. End If
    78. End Sub
    79. End Class
    Bilder

    • Entwurf.png

      11,51 kB, 510×317, 183 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „IluminatHALO04“ ()

    Das mit dem "reinen" Kopieren schaffe ich ja nur wie kann ich mit den Arrays so hantieren, dass er sich die Auswahl merkt?
    Bilder

    • CSC-Creator_Forum.png

      20,46 kB, 487×303, 138 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „IluminatHALO04“ ()

    Das Auslesen ist eine Sache (Ich setzte mich sofort drann) aber, dass er mir nur die verkürzentn Pfade zurück geben soll eine andere.
    Hast du auch dafür eine Lösung? Weil mit den Ganzen Pfaden fannge ich nichts an. (zumindes ohne Scrollbaklen)

    PS (12:10): Die Auswahl die er sich merken soll symbolisieren ja Ordner, die er dann auch kopieren soll!

    Ich sollte mir wirklich angwöhnen, dass ich mich klarer ausdrücke.
    Er ließt den Pfad zum Verzeichniss "x" aus, soll sie die Auswahl=x merken und den Pfad, weil es einfacher zum Lesen ist aber verkürz wiedergeben.
    Ich hoffe ich habe jetzt nciht schon wieder eine Spezifikation vergenssen ansonsten wird der Post heir nochmal editiert. 8|

    Beispiel: Pfad den er ausliest: D:\Projekte\CSC-Creator\CSC-Creator v 9.1.00.0\CSC-Creator v 9.1.00.0\bin\Debug\Data\CSC\ (in diesem Verzeichniss sind Ordner)
    Anzeigen (In der CheckedListBox) Soll er aber nur den Inhalt von CSC\ nicht aber den ganzen Pfad davor. (das ist dass was er jetzt macht)

    Im Screen sieht man, dass man den wert den er mir hier Anzeigt nicht verwenden kann um Produktiv damit zu arbeiten:





    EDIT: \\ 14:48

    Er soll die Ordner die er da darstellen soll aber später mit dem Copy Befehl in ein anderes Verzeichniss kopieren. (nur die die halt ausgewählt worden sind vom User)
    Bilder

    • CSC-Creator_Forum.png

      20,46 kB, 487×303, 123 mal angesehen

    Tja - Trennung von Daten und Gui.

    Als Daten könnteste FileInfo-Objekte nehmen, und die Listbox so einstellen, dass sie nur FileInfo.Name anzeigt, nicht FileInfo.Fullname.

    Auch zum Kopieren sind FileInfos viel praktischer als so depperte Strings, wie man sie von My.Computer.... bekommt.

    Schau dir die FileInfo-Klasse mal im ObjectBrowser an.
    Auf RecursiveFileSearch wird auch damit herumgespielt.

    Ich habe versucht meinen Code dahingehend an zu passen aber es will da nicht laufen und VS schreit mir 100erte Fehler aber ich werd mich mal in das Thema rein knieen.
    PS: Deine "Doku - Such der reihe nach" Threads auf MyCSharp sind nett geschrieben aber wie immer wenn man mehr info rein brinegen will etwas zu langatmig.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „IluminatHALO04“ ()

    Hilfe zur selbsthilfe ....

    Ich hatte/habe versucht mir deine Beiträge zu Herzen zu nehmen und dabei so ab zu änderen, dass sie in meinen Programm Code passen,
    als das fehlschlug, habe ich versucht sie in ein extra Projekt zu packen, doch auch das sollte mir hier nicht helfen, denn:

    Sogar in einem extra Projekt, welches genau auf deine Posts eingeht, funktioniert es nicht.
    Gegebennen Falls bin ich einfach zu blöde zur Umsetztung aber vlt. nicht, egal was oder wer daran Schuld hat, fest steht nur eines:
    Es läuft nicht und ich kann nicht mal den Fehler idendifizieren!

    Dann poste den ganzen Code und schreib, was er tun soll und was er tut. Ansonsten lassen sich Deine Probleme nicht nachvollziehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Sub CollectFilesAndFolders( _
    6. ByVal rootDirs As IEnumerable(Of DirectoryInfo), _
    7. ByVal folderCollector As ICollection(Of DirectoryInfo), _
    8. ByVal fileCollector As ICollection(Of FileInfo), _
    9. Optional ByVal pattern As String = "*.*")
    10. 'Vorrausdeklaration der rekursion
    11. Dim recurse As Action(Of IEnumerable(Of DirectoryInfo)) = Nothing
    12. 'rekursion ausprogrammieren
    13. recurse = _
    14. Sub(dirs As IEnumerable(Of DirectoryInfo))
    15. For Each dirinf In dirs
    16. Dim files As IEnumerable(Of FileInfo)
    17. Try
    18. files = dirinf.EnumerateFiles(pattern)
    19. Catch ex As UnauthorizedAccessException
    20. 'für manche Directories hat das Prog keine Rechte
    21. Continue For
    22. End Try
    23. For Each fileInf In files
    24. fileCollector.Add(fileInf)
    25. Next
    26. folderCollector.Add(dirinf)
    27. 'selbst-aufruf
    28. recurse(dirinf.EnumerateDirectories)
    29. Next
    30. End Sub
    31. 'rekursion aufrufen
    32. recurse(rootDirs)
    33. End Sub
    35. Private Sub GetFilesAndFolders(ByVal rootPath As String)
    36. Dim folders As New List(Of DirectoryInfo)
    37. Dim files As New List(Of FileInfo)
    38. Dim rootDirs = {New DirectoryInfo(rootPath)} 'rootDirs enthält hier nur 1 Directory
    39. CollectFilesAndFolders(rootDirs, folders, files)
    40. 'Collect-Ergebnisse verwenden
    41. CheckedListBox1.DataSource = folders
    42. CheckedListBox2.DataSource = files
    43. End Sub
    45. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    47. End Sub
    49. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    51. End Sub
    53. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    55. End Sub
    56. End Class


    Fehler:"EnumerateFiles" ist kein Member von "System.IO.DirectoryInfo".
    Fehler:"EnumerateDirectories" ist kein Member von "System.IO.DirectoryInfo".
    Aufgabe/lenbenszweck ist hier näher und wie ich meine ausführlich beschrieben, für mich jedoch nicht ganz nachvollziebahr.

    Was ich "gerne" zum testen damit bezwecken wollte ist, dass er mir den Inhalt der CheckedListBoxen befüllt und ausliest jedoch sollte er nur die verkürzten Pfade anzeigen! Für weiteres siehe oben.

    IluminatHALO04 schrieb:

    Fehler:"EnumerateFiles" ist kein Member von "System.IO.DirectoryInfo".
    Fehler:"EnumerateDirectories" ist kein Member von "System.IO.DirectoryInfo".
    Ja und?
    Probier doch mal, ein Array zu befüllen mit GetFiles()

    VB.NET-Quellcode

    1. For Each file In System.IO.Directory.GetFiles("c:\Temp", "*.*")
    2. Next
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende