Copy files with wild card

[Jeff Barnes]

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

[YamilBracho]

Get the files in the source path using Directory, then use an loop or aeval and do the copy, one file at once

[James Bott]

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"

[Jeff Barnes]

Thanks Yamil and James,

James, I tried your soultion but it forced my app to quit (without any error being generated)

[James Bott]

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

[dutch]

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