'
' PathIsDirectoryEmpty
'
' Author: Joe Strazzere
'
'path$="c:zerble"
'path$="c:"
path$="c: est"
ret=External("shlwapi.dll","PathIsDirectoryEmptyA",path$)
If ret = 0 then
msgbox(path$+" is not empty, or does not exist.")
else
msgbox(path$+" is empty.")
Endif
