You can use code from
http://www.berezniker.com/content/pages/visual-foxpro/file-operations-progressbar with small modification
...
lnFlag = FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR + FOF_NOERRORUI
lnFlag = lnFlag + FOF_FILESONLY
lcDestinationFolder = "h:\aaa\TmpCopy"
lcSourceFolder = "h:\tmp\"
IF FileOpWithProgressbar(ADDBS(lcSourceFolder) + "*.*", lcDestinationFolder, "Copy")
ENDIF
>
>Can someone help me with code to copy only the files between folders and not copy folders.
>
>Code below copies folders and files
>
>lcSourceFolder = cTxt2
>lcDestinationFolder = cTxt3
>
>#define OverWriteFiles .t.
>loFSO = CreateObject("Scripting.FileSystemObject")
>loFSO.CopyFolder (lcSourceFolder , lcDestinationFolder , OverWriteFiles)
>
>
>Thanks.
--sb--