+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ftp adresine gidecek dosyayı metin kutusundan almak (/konu-ftp-adresine-gidecek-dosyayi-metin-kutusundan-almak.html)
ftp adresine gidecek dosyayı metin kutusundan almak - accessman - 09/04/2012
iyi günler
bu ekledediğim kodda
Kod:
Sub TestFTPUpload()
On Error GoTo ErrHandler
Dim objFTP As InetTransferLib.FTP
Dim hedef As String 'BEN EKLEDİM
Dim sSVR As String 'BEN EKLEDİM
Dim kaynak As String 'BEN EKLEDİM
sSVR = Nz(Me.server_adres, "") & ":" & Nz(Me.server_port, "") 'BEN EKLEDİM
hedef = [server_heAdres] & [server_heDosya]
'ShellExecute(0, nil, sSVR, nil, nil, SW_SHOWDEFAULT)
Set objFTP = New InetTransferLib.FTP
With objFTP
.FtpURL = sSVR
.SourceFile = vbNullString
.DestinationFile = hedef
.AutoCreateRemoteDir = True
If Not .IsConnected Then .DialDefaultNumber
.ConnectToFTPHost [server_user], [server_password]
.UploadFileToFTPServer
End With
ExitHere:
On Error Resume Next
Set objFTP = Nothing
Call SysCmd(acSysCmdRemoveMeter)
Exit Sub
ErrHandler:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source
Resume ExitHere
End Sub.SourceFile = vbNullString
kod ile göabknderilecek dosya seçiliyor
ama herseferinde seçmek yerine ben bunu tablodan
Xdosya_adi = Dlookup ("[dosya_adı]", "YEDEKLE", "[sno] = 1")
alarak yapmak istiyorum
nasıl yapabilirim
teşekkürler
Cvp: ftp adresine gidecek dosyayı metin kutusundan almak - accessman - 09/04/2012
.SourceFile = Nz(DLookup("[DOSYA_ADI]", "DOSYAM", "cstr(tarih)='" & CStr(DMax("tarih", "DOSYAM")) & "'"), 0)
yazınca oluyormuş
RE: ftp adresine gidecek dosyayı metin kutusundan almak - accessman - 01/06/2020
Ftp de güzel konu imiş