Type dir1
   Field name$
End Type
Type dir2
   Field name$
End Type



;------------------------------------------------------------------
;Löscht alle Dateien in einem Verzeichnis
;path=Startverzeichnis
;------------------------------------------------------------------
Function dirkiller(path$)
  .again
  pathid=ReadDir(path$)
  If pathid=0 Then Return
  Repeat
    file$=NextFile$(pathid)
    If file$="" Then Exit
    If file$<>"." And file$<>".." Then
      Select FileType(path$+file$)
      Case 1
        countfile=countfile+1
        DeleteFile path$+file$
      Case 2
        countdir=countdir+1
        dir1.dir1 =New dir1
        dir2.dir2 =New dir2
        dir1\name$=path$+file$+"\"
        dir2\name$=path$+file$+"\"
      End Select
    End If
  Forever
  CloseDir pathid
  dir1=Last dir1
  If dir1<>Null Then
    path$=dir1\name$
    Delete dir1
    Goto again
  End If
  For i=1 To countdir
    dir2=Last dir2
    DeleteDir dir2\name$
    Delete dir2
  Next
End Function

Function DeleteOrdner(pfad$)

  If Not FileType(pfad$) = 2 Then Return 0
   
  dir = ReadDir(pfad$)
  If dir = 0 Then Return 0
   
   
  Repeat

    file$ = NextFile(dir)
    If file$ = "" Then Exit
   
    If file$ <> "." And file$ <> ".."
      If FileType(pfad$ + "\" + file$) = 1 Then DeleteFile(pfad$ + "\" + file$)
      If FileType(pfad$ + "\" + file$) = 2 Then DeleteOrdner(pfad$ + "\" + file$)
    EndIf
   
  Forever

  CloseDir(dir)
  DeleteDir(pfad$)
   
  Return 1

End Function