>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
>

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

cFolder2 = iif(right(m.cFolder2,1) = "\",justpath(m.cFolder2),m.cFolder2)
fso =createobject("Scripting.FileSystemObject")

&& test if folder already exists
&& if folder already exists then delete
if fso.FolderExists(m.cFolder2)
 fso.DeleteFolder(m.cFolder2,.t.)
endif

Cetin