delete folders

[splakidas]

How can i delet folders, subfolders and files that are in the subfolders ?

[billhsln]

This is what I use, I did not write this and it was originally from IBasic:

Code Select Expand

sub DelTree(path as string)
Dim H,N,problem:Int
Dim Name:String
if path<>""
H=FindOpen(Path+"\\*.*")
If H
Do
Name=FindNext(H)
If (Name <> "") and (Name <> ".") and (Name <> "..")
DelTree(Path+"\\"+Name)
EndIf
Until Name = ""
FindClose H
EndIf

N=FindOpen(Path)
If N
FindClose N
DeleteFile(Path)
if (right$(Path,1) <> "\\")
problem=RemoveDir(Path)
if (problem = 0) then print Path, " Path Not Deleted"
endif
endif
endif
return
endsub

Bill

[splakidas]

Thank you