Skip to main content

AccessTr.neT


ağdaki bilgsayar dosya kopyalama

ağdaki bilgsayar dosya kopyalama

Çözüldü #1
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
@benbendedeilem
Cevapla
Çözüldü #3
örnek vermişler zaten yalnız o komut dll dosya ister dosshell altından komutla halledin sorun çıkartmasın derim.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #4
bu nasıl olacak tarif edebilirmisiniz
@benbendedeilem
Cevapla
Çözüldü #5
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")
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #6
teşekkürler
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task