Tariq, Did You have Windows Scripting Host ON?
What the following line returns?

 wshFSObj = CREATEOBJECT("Scripting.FileSystemObject")

>My dear Professor
>
>Thanks for helping me. Now no error message appears, but sir my actual problem still not solve. The detail is under
>
>I have a folder as D:\Cotton. This folder has some sub folders such as FORMS, REPORTS, TABLES etc. I want to copy all of the sub folders, complete directory d:\cotton to c:\cotton, to new folder so in the beginning I use following lines
>
>

>cFolder1 = "d:\cotton\"
>cFolder2 = "c:\cotton"
>cfiles = cFolder1+"*.*"
>

>
>Now sub folders do not copy to c:\cotton.
>Complete codes are below dotted line.
>
>What is wrong pleae modify and help again.
>
>Thanks in advance
>
>*------------------------------------
>
>set safety off
>
>cFolder1 = "d:\cotton\"
>cFolder2 = "c:\cotton"
>cfiles = cFolder1+"*.*"
>
>
>DECLARE INTEGER CreateDirectory IN kernel32;
> STRING lpPathName, INTEGER lpSecurityAttr
>
>IF !DIRECTORY(cfolder2)
> IF CreateDirectory (cFolder2, 0) = 0
> =MESSAGEBOX('Could not create '+cfolder2)
> RETURN
> ENDIF
> IF !DIRECTORY(cfolder2)
> =MESSAGEBOX('Could not create '+cfolder2)
> RETURN
> ENDIF
>ENDIF
>
>IF ADIR(allfiles,cfiles) > 0 && Check If ADIR returns some files
>
> DECLARE INTEGER CopyFile IN kernel32;
> STRING lpExistingFileName,;
> STRING lpNewFileName,;
> INTEGER bFailIfExists
>
> FOR i = 1 TO ALEN(allfiles,1)
> =CopyFile(cfolder1+allfiles(i,1), cfolder2+"\"+allfiles(i,1), 0)
> ENDFOR
>ENDIF
>*return
>
>messagebox("DONE")