Dear Sir,

I want to remove a folder and use following code but it generates error.
The line on which error appears is the second last line.

Please modify codes or suggest some other codes to delete any folder.

cFolder1 = alltrim(Thisform.text4.value)
cFolder2 = alltrim(thisform.text8.value)

&& test if folder already exists
fso =createobject("Scripting.FileSystemObject")
aoo= fso.FolderExists(cFolder2)

&& if folder already exists then delete
if aoo=.t.
fso =createobject("Scripting.FileSystemObject")
fldr=fso.DeleteFolder(cFolder2) && GENERATES ERROR ON THIS LINE
endif