oFso = CreateObject("Scripting.FileSystemObject") lcFolder = < ... > oFso.DeleteFolder(lcFolder)and
lcdir = GETDIR() oFolder = oFSO.GetFolder(lcdir) oFolder.Delete(.T.)>>I need to delete directories and all sub-directories.
oFSO = CREATEOBJECT('Scripting.FileSystemObject') >lcdir = GETDIR() >oFolder = oFSO.GetFolder(lcdir) >oFolder.Delete(.T.)