XProfan

cls

proc isdirempty

    parameters dir$

    if direxists(dir$)

        if len(dir$) > 3

            clearList
            chdir dir$
            addFiles *"*.*"
            case %GetCount = -1:return 1
            chdir $ProgDir

        else

            return 3

        endif

    else

        return 2

    endif

endproc

Isdirempty "C:"
case %(0) = 0: print "Verzeichnis voll"
case %(0) = 1: print "Verzeichnis leer"
case %(0) = 2: print "Verzeichnis nicht gefunden"
case %(0) = 3: print "Root nicht möglich - bääätsch"
waitinput

Proc DirIsEmpty

    Parameters Dir$
    Declare Dir1$
    CaseNot DirExists(Dir$):Return -1
    Dir1$ = GetDir$("@")
    ChDir Dir$

    If (Len(Dir$) <= 3) = 0

        FindFirst$("*")
        FindNext$()
        Dir$ = FindNext$()

    Else

        Dir$ = FindFirst$("*")

    EndIf

    ChDir Dir1$
    Return Len(Dir$) = 0

EndProc

Declare Ausgabe$
Ausgabe$ = "qnicht vorhanden!q,qnicht leerq,qleerq"
Print "C:XXXXX ist " + SubStr$(Ausgabe$,DirIsEmpty("C:XXXXX") + 2,",")
MkDir "C:XXXXX"
Print "C:XXXXX ist " + SubStr$(Ausgabe$,DirIsEmpty("C:XXXXX") + 2,",")
Assign #1,"Test.txt"
ReWrite #1
Print #1,"Test"
Close #1
Print "C:XXXXX ist " + SubStr$(Ausgabe$,DirIsEmpty("C:XXXXX") + 2,",")
Erase "C:XXXXXTest.txt"
RMDir "C:XXXXX"
' das Löschen funktioniert bei mir nicht - keine Ahnung warum
' liegts am System oder an Profan?
' also gegebenenfalls von Hand löschen
Print $Winpath + " ist " + SubStr$(Ausgabe$,DirIsEmpty($winpath) + 2,",")
Print "C: ist " + SubStr$(Ausgabe$,DirIsEmpty("C:") + 2,",")
WaitInput

dirIsEmpty(string s){

    rmDir s
    case dirExists(s) : return false
    mkDir s
    return true

}

Def PathIsDirectoryEmpty(1) ! "shlwapi","PathIsDirectoryEmptyA"'gibt 1 für leer 0 für nein

proc isDirEmpty

    parameters dir$
    Return PathIsDirectoryEmpty(addr(dir$))

endproc