Nie można znaleźć sposobu, aby to zrobić, Google zawodzi mnie!Lista wszystkich folderów w katalogu
Proszę, dziękuję!
Nie można znaleźć sposobu, aby to zrobić, Google zawodzi mnie!Lista wszystkich folderów w katalogu
Proszę, dziękuję!
Spróbuj tego:
Imports System
Imports System.IO
Class Program
Shared Sub Main()
For Each Dir As String In Directory.GetDirectories("c:\Program Files")
Console.WriteLine(Dir)
Next
End Sub
End Class
Używam metody Directory.GetDirectories
która zwraca tablicę łańcuchów, po jednym dla każdego podkatalogu katalogu ja świadczenia jako parametr do metody.
DirectoryInfo di = new DirectoryInfo("path");
di.GetDirectories();
di = New DirectoryInfo(path)
rgFiles = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
For Each fi As FileInfo In rgFiles
If CheckIfExist(fi.FullName.ToString.Replace("\" & fi.Name, "")) = False Then
ListBox1.Items.Add(fi.FullName.ToString.Replace("\" & fi.Name, ""))
End If
Next
Public Function CheckIfExist(ByRef Path As String) As Boolean
Dim RetVal As Boolean = False
For Each LI As String In ListBox1.Items
If LI.ToString = Path Then
RetVal = True
Return RetVal
Exit Function
End If
Next
Return RetVal
End Function
Dziękujemy za zamieszczenie odpowiedzi! Podczas gdy fragment kodu mógłby odpowiedzieć na pytanie, nadal dobrze jest dodać dodatkowe informacje, np. Wyjaśnić itp. – j0k
"google zawodzi mnie!" -Naprawdę? https://www.google.co.uk/search?sclient=tablet-gws&site=&source=hp&btnG=Search&q=List+a+directory%27s+subdirectories+Visual+Basic –