Hallo,
ich habe ein Verzeichnis in dem mehrere Unterverzeichnisse liegen, in denen sowohl Dateien als auch weitere Unterverzeichnisse liegen.
Da bietet sich natürlich eine rekursive Funktion an. Mein Problem liegt jetzt aber darin erst mal ins erste Untervezeichnis zu springen und die darin enthaltenen Dateien (Verzeichnisse und Dateien) in einem Command-Fenster auszugeben.
Mein bisheriger Code sieht bisher so aus (noch etwas bloated):
mfg
TODuke
ich habe ein Verzeichnis in dem mehrere Unterverzeichnisse liegen, in denen sowohl Dateien als auch weitere Unterverzeichnisse liegen.
Da bietet sich natürlich eine rekursive Funktion an. Mein Problem liegt jetzt aber darin erst mal ins erste Untervezeichnis zu springen und die darin enthaltenen Dateien (Verzeichnisse und Dateien) in einem Command-Fenster auszugeben.
Mein bisheriger Code sieht bisher so aus (noch etwas bloated):
VB.NET-Quellcode
- Imports System.IO
- Module Module1
- Sub Test()
- Dim strQuellVerz As String
- Dim strZielVerz As String
- Dim strDateiliste() As String
- Dim strOrdnerliste() As String
- Dim strMangadir() As String
- Dim strManganame As String
- Dim strManganr As String
- Dim Ergebnis As String
- Dim i As Integer
- strQuellVerz = ("C:\Users\Matthias\Documents\17. Test")
- 'Try
- ' If Directory.Exists(strQuellVerz) Then
- ' Console.WriteLine("Quellverzeichnis existiert!")
- ' End If
- ' Console.WriteLine(strQuellVerz)
- 'Catch
- ' Console.WriteLine("Verzeichnis nicht gefunden!")
- 'End Try
- strOrdnerliste = Directory.GetFileSystemEntries(strQuellVerz)
- Console.WriteLine(Directory.GetCurrentDirectory(strOrdnerliste(i)))
- 'Ergebnis = Directory.SetCurrentDirectory(strOrdnerliste(0))
- Console.WriteLine(Directory.GetCurrentDirectory())
- 'For i = 0 To strOrdnerliste.Count - 1
- ' 'Console.WriteLine(Ordnerliste(i))
- ' Console.WriteLine(Directory.GetCurrentDirectory(i))
- ' Directory.SetCurrentDirectory(i)
- 'Next
- End Sub
mfg
TODuke