Remove Folder through Sub Folder

* Remove_All.prg
* Update : 13 Jun 2008
* By FIRDAUS MAULANA
* http://www.daoush.net
*
* UDF : RemoveFolder , GetSubFolder

MESSAGEBOX("BACKUP YOUR FOLDER FIRST",0+48)
cDelFolder = GETDIR("","Select Folder","Erase All Folder")
CLEAR
IF EMPTY(cDelFolder)
?"CANCELED BY USER"
RETURN
ENDIF

IF ! RemoveFolder(cDelFolder)
?
? "ERROR... "+cDelFolder+" can not remove".
ELSE
?
? cDelFolder+" Removed."
ENDIF
RETURN



*****************************************************************
FUNCTION RemoveFolder(vDelFolder)
*****************************************************************
cDelFolder = LEFT(cDelFolder,LEN(cDelFolder)-1)
aNumber = 1
DIMENSION aFolders(aNumber)
STORE cDelFolder TO aFolders(aNumber)
n=1
DO WHILE n <= aNumber
GetSubFolder( aFolders(n) )
n = n + 1
ENDDO
=ASORT(aFolders,1,-1,1)
FOR i=1 TO aNumber
cDelFile = aFolders(i)+"*.*"
cDelFolder = aFolders(i)
? "Removing Files in "+cDelFile
ERASE &cDelFile
? "Removing Folder "+cDelFolder
RMDIR &cDelFolder
?
NEXT
RETURN ! DIRECTORY(vDelFolder)
*****************************************************************



*****************************************************************
FUNCTION GetSubFolder( vFolderName )
*****************************************************************
LOCAL i, nContents
nContents = ADIR( aContents , vFolderName+"*" , "D")
FOR i = 1 TO nContents
IF aContents(i,5)="....D" .and. aContents(i,1)<>"." .and.
aContents(i,1)<>".." aNumber = aNumber + 1
DIMENSION aFolders( aNumber )
STORE vFolderName+""+aContents(i,1) TO
aFolders(aNumber) ENDIF
NEXT
RETURN .T.
*****************************************************************

13.06.2008. 10:44