COMO VERIFICAR SE UM DIRETORIO ESTA VAZIO?
Olá Galera!!!
Tenho um Processo no meu Sistema q um seleciona uma pasta e o processo Faz uma Varredura nas subpastas para poder renomear os arquivos em ordem númerica, mais estou tendo prolema com subpastas vazias, gostaria de saber como faço a verificação para saber se ela esta vazia antes do iniciar o processo de renomear.
Tenho um Processo no meu Sistema q um seleciona uma pasta e o processo Faz uma Varredura nas subpastas para poder renomear os arquivos em ordem númerica, mais estou tendo prolema com subpastas vazias, gostaria de saber como faço a verificação para saber se ela esta vazia antes do iniciar o processo de renomear.
Se já não o fez, adicione no seu projeto a referência [Ô]Microsoft Scripting Runtime[Ô] e adapte o código:
Dim FSO As New FileSystemObject
Set pasta = FSO.GetFolder([Ô]C:\Pasta_A_Ser_Verificada[Ô])
If pasta.Files.Count = 0 Then
MsgBox [Ô]Pasta vazia[Ô]
Else
MsgBox [Ô]Pasta contém arquivos[Ô]
End If
Dim FSO As New FileSystemObject
Set pasta = FSO.GetFolder([Ô]C:\Pasta_A_Ser_Verificada[Ô])
If pasta.Files.Count = 0 Then
MsgBox [Ô]Pasta vazia[Ô]
Else
MsgBox [Ô]Pasta contém arquivos[Ô]
End If
Tópico encerrado , respostas não são mais permitidas