You can also remove the directory using "strict" VFP:

if directory(cFolder2)
  lcWasSafe = set('safety')
  set safety off
  delete file (addbs(cFolder2)+'*.*')
  rmdir (cfolder2)
  if lcWasSafe = 'ON'
    set safety on
  endif
endif

Glenn

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