Hi,
I there a way to copy files from within FWH allowing wild cards.
I am tring to do something like:
cFileSource := "F:\Myfile."
cFileDest := "C:\MyFolder\"
Copy File &cFileSource to &cFileDest
but I get a Open error for cFileSource
Thanks,
Jeff
Get the files in the source path using Directory, then use an loop or aeval and do the copy, one file at once
I haven't tried it, but this might work.
copyFile(cSource,cTarget,nFailIfExists)
Where nFailIfExists = 0 overwrite if cTarget exists
1 fail if cTarget exists
DLL32 FUNCTION CopyFile( Source_file AS LPSTR, Target_file AS
LPSTR,; Ret_err AS LONG ) AS BOOL FROM "CopyFileA" LIB
"Kernel32.dll"
Thanks Yamil and James,
James, I tried your soultion but it forced my app to quit (without any error being generated)
Jeff,
Before I gave up I would check to see if it works without a wildcard. It worked for me, but I can't remember, perhaps I only used it in 16bit apps.
James
Dear Jeff,
This is an example that work for me.
Regards,
Dutch
aFiles1 = directory(".db?")
aFiles2 = directory(".fpt")
if !empty(aFiles1)
aTarget:= {}
aSource:= {}
for n := 1 to len(aFiles1)
aadd(aTarget,DayOfWeek+'\'+aFiles1[n][1])
aadd(aSource,aFiles1[n][1])
next
for n := 1 to len(aFiles2)
aadd(aTarget,DayOfWeek+'\'+aFiles2[n][1])
aadd(aSource,aFiles2[n][1])
next
copyfiles( aSource, aTarget )
endif
