FoxPro/Visual FoxPro - borrar una carpeta con codigo

si tengo esta carpeta : "C:\INVBKS" Y QUIERO BORRARLA CON TODOS LOS ARCHIVOS Q TENGA Y SUB CARPETAS... COMO LO HAGO CON VFP MEDIANTE CODIGO....?

Chequea RD | RMDIR en la ayuda

Visual FoxPro genera un mensaje de error si el folder a remover no esta vacio.

:-(

Nice one!

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
? oFSO.DeleteFolder("c:\test",.t.)

Suerte

excelente ejemplo funciona bien, solo no dejen la carpeta abierta sino marcara error

CreateDirectory, RemoveDirectory



Permiten realizar acciones sobre directorios

API para Crear Directorio

DECLARE INTEGER CreateDirectory IN WIN32API ;
STRING cNewDir, ;
STRING cAttrib

tcDirName = "c:dav"

lnSuccess = CreateDirectory ( tcDirName, "")
lcRetVal = IIF( lnSuccess = 1, "Creado", "Fallo" )
Api para Eliminar Directorio

DECLARE INTEGER RemoveDirectory IN WIN32API ;
STRING cKillDir

tcDirName ="c:dav"

lnSuccess = RemoveDirectory( tcDirName)
lcRetVal = IIF( lnSuccess = 1, "Removed", "Failed" )

El que funciona es este método, el .t. es para forzar el borrado aunque hayan archivos o subdirectorios.
ofs=CREATEOBJECT("scripting.filesystemobject")
ofs.DeleteFolder(<directorio>, .T.)