Je adresář prázdný ?
Funkce:
Private
Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" _
Alias "PathIsDirectoryEmptyA" _
(ByVal pszPath As String) As Long
Private
Function IsDirectoryEmpty(ByVal sPath As String) As Boolean
'Vrací
True pokud je sPath prázdný adresář.
'Vrací False pokud sPath není adresář, nebo
'pokud obsahuje alespoň jeden soubor
'
'Požaduje verzi 5.00 a vyšší knihovny Shlwapi.dll
IsDirectoryEmpty = PathIsDirectoryEmpty(sPath) = 1
End Function
Tato funkce funguje i na síťové cesty nebo na URL adresy.
