Sto cercando una funzione (Verifica se directory è vuota)..

[luigidid]

Ciao Ragazzi,
mi aiutate un attimino?
sto cercando una funzione che mi dice se una cartella è vuota o non...

Vi ringrazio anticipatamente
Ciao
Luigi

[Mabi]

Se è vuota significa che non c'è nessun file... quindi ti basta andare a prenedere il nome di un file della cartella e verificare che non sia una stringa vuota .

Dim FileName As String
Dim Directory As String

Directory = "C:\Documenti\"

FileName = Dir(Directory & "*.*")
If FileName = "" Then
  MsgBox "Nessun file nella cartella " & Directory
Else
  MsgBox "La cartella " & Directory & " non è vuota"
End If

Ciao !

[luigidid]

Ciao,
scusami ma non mi sono spiegato bene,
a me serve sapere anche se non ci sono sottocartelle.

quindi, piu' che altro, mi serve sapere se possiede o non sottocartelle.....

Ti ringrazio.
Ciao.

[jabjoint]

Private Sub Form_Load()
Dim elemFolder As Variant
Dim folder As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set subFldrs = fso.GetFolder("C:\Documenti\icon").subfolders
For Each elemFolder In subFldrs
If Not InStr(1, elemFolder, "\") Then
folder = "La cartella è piena."
Else
folder = "La cartella è vuota."
End If
Next
MsgBox folder
End Sub

[jabjoint]

'Quella di prima non va bene questa si:

Dim fso As Object
Dim elemFolder As Variant
Dim x As Boolean

Set fso = CreateObject("Scripting.FileSystemObject")
Set subFldrs = fso.GetFolder("C:\Documenti").subfolders

For Each elemFolder In subFldrs
x = True
Next

If x = True Then
MsgBox "La cartella è piena"
Else
MsgBox "La cartella è vuota."
End If

[luigidid]

Ciao Ragazzi,
grazie lo stesso per l'impegno, ma ho già risolto in altro modo e senza usare FSO (che mi è tra l'altro un po' antipatico...)

Ecco a voi:

'Controlla se una directory è vuota
Function IsDirEmpty(sDir As String) As Boolean
Dim bTrovatoFile As Boolean
Dim bTrovatoDir As Boolean
Dim sActFile As String

bTrovatoDir = False

bTrovatoFile = (Len(Dir(sDir & "*.*", vbNormal)) > 0)

sActFile = Dir(sDir & "*", vbDirectory)

Do While Not Len(sActFile) <= 0
sActFile = Dir(, vbDirectory)
If Not (sActFile = ".") And Not (sActFile = "..") Then
bTrovatoDir = bTrovatoDir Or (Len(sActFile) > 0)
End If
Loop

IsDirEmpty = Not bTrovatoDir And Not bTrovatoFile
End Function