Liste todas as pastas no diretório

votos
5

Não consigo encontrar uma maneira de fazer isso, o Google está falhando comigo!

Por favor, ajudem, obrigado!

Publicado 27/08/2009 em 04:12
fonte usuário
Em outras línguas...                            


3 respostas

votos
13

Tente isto:

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

Eu estou usando o Directory.GetDirectoriesmétodo que retorna uma matriz de cordas, uma para cada subdiretório do diretório eu forneço como um parâmetro para o método.

Respondeu 27/08/2009 em 04:16
fonte usuário

votos
4
DirectoryInfo di = new DirectoryInfo("path");

di.GetDirectories();
Respondeu 27/08/2009 em 04:17
fonte usuário

votos
0
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
Respondeu 05/09/2012 em 13:51
fonte usuário

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more