[Maza Faka]

*OM*
Аналогично с помощью WinAPI:

Код:

$IsEmpty = _DirIsEmpty("c:\Test")

MsgBox(0, "Folder empty", $IsEmpty & @LF & _
       "Error = " & @error)

Func _DirIsEmpty($sPath)
    If Not FileExists($sPath) Then Return SetError(1, 0, 0)

    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(2, 0, 0)

    $aRet = DllCall("shlwapi.dll", "int", "PathIsDirectoryEmpty", "str", $sPath)

    If $aRet[0] = True Then
        Return SetError(0, 0, 1)
    Else
        Return SetError(3, 0, 0)
    EndIf
EndFunc   ;==>_DirIsEmpty

Возвращает 1 если папка пуста.