Hey Leute,
ich hab ein Problem und komm echt nicht mehr weiter, und zwar versuche ich aus einem unbestimmten Ordner die Dateien, dieUnterordner,sowie die Dateien der Unterordner zu kopieren. Ich habe derzeit folgenden Code:
Wenn ich das Programm teste, bekomme Ich nicht die Dateien kopiert, die in den Unterordnern sind.
Bitte um Hilfe.
LG
ich hab ein Problem und komm echt nicht mehr weiter, und zwar versuche ich aus einem unbestimmten Ordner die Dateien, dieUnterordner,sowie die Dateien der Unterordner zu kopieren. Ich habe derzeit folgenden Code:
VB.NET-Quellcode
- Private Function OrdnerKopieren()
- Dim DirInfo As New DirectoryInfo(SourcePath)
- Dim Directories As List(Of DirectoryInfo) = DirInfo.GetDirectories.ToList
- Dim Files As List(Of FileInfo) = DirInfo.GetFiles.ToList
- For Each oDir As DirectoryInfo In Directories
- Dim NewDestinationPath As String = Path.Combine(DestinationPath, oDir.Name)
- If Not Directory.Exists(NewDestinationPath) Then
- Directory.CreateDirectory(NewDestinationPath)
- End If
- Next
- For Each oFile As FileInfo In Files
- Dim NewFilename As String = Path.Combine(DestinationPath, oFile.Name)
- File.Copy(oFile.FullName, NewFilename)
- Next
- For Each oDir As DirectoryInfo In Directories
- Dim DirSubPath As New DirectoryInfo(Path.Combine(DestinationPath, oDir.Name))
- Dim SubFile As List(Of FileInfo) = DirSubPath.GetFiles.ToList
- For Each soFile As FileInfo In SubFile
- Dim NewSubFilename As String = Path.Combine(DestinationPath & oDir.Name, soFile.Name)
- File.Copy(soFile.FullName, NewSubFilename)
- Next
- Next
- Console.ReadLine()
- End Function
Wenn ich das Programm teste, bekomme Ich nicht die Dateien kopiert, die in den Unterordnern sind.
Bitte um Hilfe.
LG