Jump to content

Obter número e nome de folders


zephirus
 Share

Recommended Posts

Olá,

É possível saber quantas folders e o nome das mesmas existem numa determinada folder?

Imaginando que a folder actual é "C:\". Eu quero obter o número de pastas que estão contidas no C: (apenas um nível) e saber o nome das mesmas.

Exemplo:

C: --- pasta1

    |

    |- pasta2

    |

    |- pasta3

Eu quero obter 'numPastas = 3' e os 3 nomes.

Link to comment
Share on other sites

Claro que é possível.

Toma lá uma forma de o fazer que escrevi agora à pressão:

        Dim CaminhoBase As String = "c:\"
        Dim Dirs As ObjectModel.ReadOnlyCollection(Of String) = FileIO.FileSystem.GetDirectories(CaminhoBase, FileIO.SearchOption.SearchTopLevelOnly)
        Dim DirsExtenso As String = String.Empty

        For Each D As String In Dirs
            DirsExtenso &= FileIO.FileSystem.GetDirectoryInfo(D).Name & Environment.NewLine
        Next

        MsgBox(String.Format("Nomes das {0} pastas:{2}{2}{1}", Dirs.Count, DirsExtenso, Environment.NewLine))

Podes reduzir bastante apenas por declarares alguns imports, mas escrevi-te por extenso para que entendas com mais facilidade.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.