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.

Zp∞t