Datei- und Ordneranzahl in Verzeichnis ermitteln

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Astharey.

    Datei- und Ordneranzahl in Verzeichnis ermitteln

    Hallo Leute,

    ich bin's wieder mit 'nem Problem. Und zwar möchte ich alle Dateien und Ordner in einem Verzeichnis ermitteln (z.B. CD-Laufwerk). Diese sollen 1:1 in einen vom Benutzer bestimtmen Ordner kopiert, wobei die ProcessBar (ProgressBar) über den Fortschritt informieren soll und das progress_text (Label) die derzeitige Datei anzeigen soll. Ich habe schon angefangen, nur funktioniert das alles nicht. :thumbdown:

    VB.NET-Quellcode

    1. Dim Ordnergröße As Long = 0
    2. For Each Ordner As String In Directory.GetDirectories(sourcedir_path.Text, "*.*", SearchOption.AllDirectories)
    3. Try
    4. Ordnergröße += New FileInfo(Ordner).Length
    5. ProcessBar.Maximum = Ordnergröße.ToString 'Alle Dateien werden addiert
    7. My.Computer.FileSystem.CopyDirectory(Ordner.ToString, targetdir_path.Text)
    8. progress_text.Text = Ordner.ToString 'Gibt die derzeit zu kopierende Datei, Ordner an'
    9. ProcessBar.Increment(1) 'Pro Datei erhöht sich die ProcessBar um +1
    11. Catch ex As Exception
    12. End Try
    13. Next


    Danke für Tipps und Lösungen.

    Grüße

    So, habe noch eine besseres Beispiel gefunden und schon an meinen Code angepasst. Jetzt weiß ich nur nicht, wie ich's hinbekomme, dass aus einem Pfad (z.B. CD-Laufwerk) alle Ordner und Dateien ins "targetdir" kopiert werden. ?(

    VB.NET-Quellcode

    1. 'Kopieren
    3. If File.Exists(targetdir_path.Text) Then
    4. File.Delete(targetdir_path.Text)
    5. End If
    6. If File.Exists(sourcedir_path.Text) Then
    7. 'Streams
    8. Dim fromStream As FileStream = New FileStream(sourcedir_path.Text, FileMode.Open)
    9. Dim toStream As FileStream = New FileStream(targetdir_path.Text, FileMode.CreateNew)
    11. 'Variablen
    12. Dim total As Long = fromStream.Length
    13. Dim current As Long = 0
    14. Dim buffer(1024) As Byte
    15. Dim kbRemaining As Integer = 0
    16. Dim secRemaining As Integer = 0
    17. Dim kbs As Double = 0.0
    18. Dim eta As TimeSpan
    19. Dim startTime As DateTime
    21. 'Schleife
    22. cancel = False
    24. startTime = DateTime.Now
    25. Do
    26. 'Prüfen ob abgebrochen wurde
    27. If cancel Then
    28. fromStream.Close()
    29. toStream.Close()
    30. Exit Sub
    31. End If
    33. 'Bytes(lesen)
    34. Dim read As Integer = fromStream.Read(buffer, 0, buffer.Length)
    36. 'Bytes in die Datei schreiben
    37. toStream.Write(buffer, 0, read)
    39. 'current erhöhen
    40. current += read
    42. 'Prozente errechen
    43. Dim Prozent As Integer = current * 100 / total
    44. ProcessBar.Value = Prozent
    46. 'Eta
    47. eta = startTime.Subtract(DateTime.Now)
    49. 'KB und Zeit verbleibend
    50. kbRemaining = (current - total) / 1024
    51. If eta.Seconds <> 0 Then
    52. 'KB pro Sekunde
    53. kbs = Math.Round((current / 1024) / (eta.Seconds), 2)
    54. secRemaining = kbRemaining / kbs
    55. End If
    56. progress_text.Text = "Verbleibend: " + secRemaining.ToString() + " Sekunden"
    58. Application.DoEvents()
    59. Loop While (total <> current)
    61. cancel = False
    63. fromStream.Close()
    64. toStream.Close()
    65. End If