files on external drives

[mustafa]

hi edk <---

Works great for backing up from one folder to another
I have put this little change the rest the same, Everything Ok!

Code: Select all

*Local cFile1:= "C:\BOOKS\AUTHORS.dbf"
*Local cFile2:= "E:\BOOKS\AUTHORS.dbf"

 Local cFile1 := HB_Curdrive() +":\"+Rtrim(Curdir() ) + "\"+"Facturas_PdF\TRANS.DBF" 
 Local cFile2 := HB_Curdrive() +":\"+Rtrim(Curdir() ) + "\"+"Control_Back\TRANS.DBF" 
 Local nSuccess

CLOSE DATA
IF !File ( cFile1 )
	MsgStop ( " .......
	.........
	........

thanks for the Sample

Regards
Mustafa

[Templar]

This is very odd! So I get a failure and for everybody else it works!
I know that it is copying the files ok, because I can see them in File explorer; it just doesn't want to open them.
I'm using Windows10; is everyone else?
Templar

[serge_girard]

W7 works fine!

Serge

[franco]

Templar,

I still do everything old school, lack of time to learn a lot of new coding
Your table must have 1 record and data in first two fields.


a:= getcurrentfolder()+'\acmotor.dbf' //acmotor is your table name
b:= 'd:\acmotor1.dbf'
copy file &a to &b
select 0
use &a alias ta
select 0
use &b alias tb
select ta // c drive table
c:=field(1)
msgbox(&c)
select tb // d drive table
d:=field(2)
msgbox(&d)

return

This works 3.44 Windows10

Everyone stay safe .
Franco

[AUGE_OHR]

hi,

This is very odd! So I get a failure and for everybody else it works!
I know that it is copying the files ok, because I can see them in File explorer; it just doesn't want to open them.
I'm using Windows10; is everyone else?

you seems to have a Strange Problem that can not be reproduce.
so i recommend to test same on other Hardware if you App work OK.