AccessTr.neT - ağdaki bilgsayar dosya kopyalama

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

burada anlatılmış

https://accesstr.net/konu-dokuman-kopyal...ya+kopyala

örnek vermişler zaten yalnız o komut dll dosya ister dosshell altından komutla halledin sorun çıkartmasın derim.

bu nasıl olacak tarif edebilirmisiniz

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")

teşekkürler

ağdaki bilgsayar dosya kopyalama

accessman

accessman

Yandemir

accessman

Yandemir

accessman