Ağdaki Dosyayı kopyalama

[bistrobellman]

Alım adlı Bilgisayardaki c:\alımlar\al1.dbf dosyasını

kendi bilgisayarımın c:\ içine kopyalanmasını istiyorum?

NOT: (alımlar) klasörü paylaştırılmıştır.

nasıl yapabiliriz bunu? dosyanın içini açmadan sadece kopyalama işini??

Bir de bu dosya dbf dosyası dbaseIV de yazılmış bir veritabanı dosyasıdır.
cevabınızı bekliyorum

 

[Haluk]

[vb:1:b0b27384cd]Sub Test()
MyFile = "\\alım\alımlar\al1.dbf "
BackUpPath = "C:\TempFolder\"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile MyFile, BackUpPath
End Sub
[/vb:1:b0b27384cd]