ağdaki bilgsayar dosya kopyalama

09/04/2012, 18:12

accessman

iyi günler
Kod:
Xserver_pressfile = Nz(DLookup("[DOSYA_ADI]", "DOSYAM", "cstr(tarih)='" & CStr(DMax("tarih", "DOSYAM")) & "'"), 0)  
Xserver_hedosya = Right(Xserver_pressfile, Len(Xserver_pressfile) - InStrRev(Xserver_pressfile, "\"))
Xag_adres = DLookup("[ag_adres]", "YEDEKLE", "[sno] = 1")
Xson_adres = [Xag_adres]  & [Xserver_hedosya]

FileSystemObject.CopyFile Xserver_pressfile, Xson_adres, True

bu kodda tablodan dosya adres ve ismlerini alarak kopyalama yapmaya çalışıyorum

MsgBox Xserver_pressfile
MsgBox Xson_adres

ile dönen değerler
D:\YeDeK\YEDEK-RAR\2012-4-9-17-7.7z
\\HAMAL-PC\Users\2012-4-9-17-7.7z

FileSystemObject.CopyFile Xserver_pressfile, Xson_adres, True
komutunu nasıl yazmalıyım
teşekkürler
09/04/2012, 19:34

accessman

09/04/2012, 21:55

Yandemir

örnek vermişler zaten yalnız o komut dll dosya ister dosshell altından komutla halledin sorun çıkartmasın derim.
10/04/2012, 09:14

accessman

bu nasıl olacak tarif edebilirmisiniz
14/04/2012, 21:37

Yandemir

shell komutu kullanımı: shell("calc.exe",x) , x yerine 0 ile 3 arası olmak kaydıyla rakam koyabilirsin bu açılacak programın küçülmüşmü tam ekranmı olacağını belirler. Bu komut windowsun genel olarak eriştiği yerlerdeki exe dosyalarını çallıştırır örneğin program files , windows dizini gibi.

x = shell("cmd.exe /c " & "c:\nereden\db1.mdb e:\nereye\db2.mdb")
16/04/2012, 12:59

accessman

teşekkürler