Verificar Pasta vazia

[vieirasoft]

Bom dia. Necessitava de saber o seguinte:

Tenho uma pasta chamada "Documentos" em c:\.meuprograma\minha pasta. Tenho pesquisado e só encontro código para verificação de ficheiros, mas o que eu pretendia era ao clicar num botão que me retornasse se a pasta está vazia ou não, independentemente do facto de ter ou não documentos dentro.

Muito grarto a quem possa ajudar

[iznougudpt]

Não trabalho com access mas parece ser possível fazer assim:

 

Function Count_Files(strFolder as String) as Long

On Error Goto Error_Handler

Dim file_count as Long
Dim file_name as String

file_name = Dir(strFolder)
file_count = 0

Do While file_name <> ""

file_count = file_count + 1
file_name = Dir

Loop

Count_Files = file_count

Exit Function

Error_Handler:
Debug.Print Err.Description

Count_Files = -1

Exit Function 

 

[vieirasoft]

Boa tarde. Na realidade não funcionou. Obrigado pela resposta.

[americob]

Em 02/06/2024 às 20:10, vieirasoft disse:

Boa tarde. Na realidade não funcionou. Obrigado pela resposta.

Segundo o Manual em https://www.techonthenet.com/access/functions/file/dir.php deverias trocar a linha:

file_name = Dir(strFolder)

por algo do género:

file_name = Dir(strFolder+"\*.*")