How to copy multiple file with fwh

[lojze]

I use fwh+harbour and need to copy files inside my app.
I try to do on this way , not work:

copy file "c:\*.dbf " to "d:\*.dbf"

not work?!
need help urgent!
thanks a lot

[lojze]

FUNCT KOPIRAJ(KAJ,KAM)

WAITRUN("XCOPY "+KAJ +" " +KAM )

RETURN .T.


Use in source:
lMkDir( d:\bck)
kopiraj("c:\*.dbf", "d:\bck")

** work ok!

[lojze]

Hey programers, no more idea???

[Enrico Maria Giordano]

Code: Select all

#include "Directry.ch"


FUNCTION MAIN()

    LOCAL aDir := DIRECTORY( "*.dbf" )

    LOCAL i

    FOR i = 1 TO LEN( aDir )
        COPY FILE ( "c:\" + aDir[ i, F_NAME ] ) TO ( "d:\" + aDir[ i, F_NAME ] )
    NEXT

    RETURN NIL

EMG

[lojze]

Enrico , you are right!
Here is another sample for deleting several file, also work fast

DeleteFiles("c:\myapp\" , "*.ppo")

Funct DeleteFiles(FromWhere,WhatFiles)
local Curdir:= CurDrive()+":\"+CURDIR()+"\"
lChDir(FromWhere) // Ferase work on current dir, so change dir

aFiles := Directory(FromWhere +WhatFiles)
Aeval(aFiles, {|v| Ferase( v[1]) })

lChDir(CurDir) // go back to mydir

Return .t.