Deleting Folders & Files

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

ShadowTurtle

oh. Here is the correct code. Sorry:

Function DeleteDirectory(Dir_$)
  Local MyDir, MyFile$

  MyDir = ReadDir(Dir_$)
  MyFile$ = NextFile$(MyDir)
  MyFile$ = NextFile$(MyDir)
  Repeat
    MyFile$ = NextFile$(MyDir)
    If MyFile$ = "" Then Exit

    If FileType(Dir_$ + "" + MyFile$) = 2 Then
      DeleteDir Dir_$ + "" + MyFile$
      DeleteDirectory(Dir_$ + "" + MyFile$)
    ElseIf FileType(Dir_$ + "" + MyFile$) = 1 Then
      DeleteFile Dir_$ + "" + MyFile$
    End If
  Forever
  CloseDir(MyDir) 
End Function