Hallo Zusammen,
ich habe nach langem Suchen und Versuchen endlich ein Programm gefunden, was mir in VB2012
die Verzeichnisse und Unterverzeichnisse ausliest.
Imports System.IO
Module Module1
Sub Main()
Dim di As DirectoryInfo = New DirectoryInfo("C:\ExampleDir")
Console.WriteLine("No search pattern returns:")
For Each fi In di.GetFiles()
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern *2* returns:")
For Each fi In di.GetFiles("*2*")
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern test?.txt returns:")
For Each fi In di.GetFiles("test?.txt")
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern AllDirectories returns:")
For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
Console.WriteLine(fi.Name)
Next
End Sub
End Module
Quelle: MSDN
Nun stelle ich aber fest, das das Programm mit Netzlaufwerken nicht funktioniert.
Hat jemand eine Lösung, wie ich es umprogrammieren könnte?
Wichtig für mich wäre nur die Zeile:
For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
Wäre sehr dankbar.
ich habe nach langem Suchen und Versuchen endlich ein Programm gefunden, was mir in VB2012
die Verzeichnisse und Unterverzeichnisse ausliest.
Imports System.IO
Module Module1
Sub Main()
Dim di As DirectoryInfo = New DirectoryInfo("C:\ExampleDir")
Console.WriteLine("No search pattern returns:")
For Each fi In di.GetFiles()
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern *2* returns:")
For Each fi In di.GetFiles("*2*")
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern test?.txt returns:")
For Each fi In di.GetFiles("test?.txt")
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
Console.WriteLine("Search pattern AllDirectories returns:")
For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
Console.WriteLine(fi.Name)
Next
End Sub
End Module
Quelle: MSDN
Nun stelle ich aber fest, das das Programm mit Netzlaufwerken nicht funktioniert.
Hat jemand eine Lösung, wie ich es umprogrammieren könnte?
Wichtig für mich wäre nur die Zeile:
For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
Wäre sehr dankbar.