Try
COPY FILE (ADDBS(lcSourceFolder) + "*.*") TO (lcDestinationFolder)
>
>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--