11 Years of Service
51%
[HIDE-THANKS]
[/HIDE-THANKS]
Code:
>$IsEmpty = _DirIsEmpty("c:\Temp")
MsgBox(64, "Results", "$IsEmpty = " & $IsEmpty & @LF & "@error = " & @error)
Func _DirIsEmpty($sPath)
If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, 0)
Local $hSearch = FileFindFirstFile($sPath & "\*")
Local $iRet = @error
FileClose($hSearch)
Return $iRet
EndFunc