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