borrar directorio

Hola como estas, puedes borrar todos los archivos que tengas en la carpeta y
luego borrar la carpeta. Ej:

lc_carpeta='c:\directorio\'
file_count = Adir(afiles,lc_carpeta+'*.*')
For i = 1 To file_count
lc_borro = lc_carpeta+afiles[I,1]
Wait Window "Borrando el archivo: " + lc_borro Nowait Noclear
Delete FILE (lc_borro) recycle
Next
Wait Window "Borrando el directorio: " + lc_carpeta Nowait Noclear
Rmdir (lc_carpeta)

Saludos

Jóse G. Samper
Microsoft Visual FoxPro MVP

"Oliver Manrique" escribió en el mensaje
news:05d701c35ada$17cd0b70$

Quiero borrar directorios dentro de un programa, lo hago
con el RD c:\directorio\
pero cuando dicho directorio contiene archivos me sale el
mensaje de error que no puede borrar porque contiene
archivos, como haria para consultar antes que el
directorio este vacio

Gracias de antemano
Oliver M.