FUNCTION DelFolderTree
LPARAMETER cPathToDelete, toFSO
LOCAL oFSO, oFolder
IF TYPE('toFSO') # 'O' OR ISNULL(toFSO)
   oFSO = CREATEOBJ('Scripting.FileSystemObject')
ELSE
   oFSO = toFSO
ENDIF
oFSO.DeleteFolder(cPathToDelete,.t.)
oFSO = ''
RETURN