AccessTr.neT

Tam Versiyon: ağdaki bilgsayar dosya kopyalama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
ö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