sn.yandemirin eklemiş olduğu

https://accesstr.net/konu-programi-sitey...hlight=ftp
adresinde 17.mesajdaki örnekte
dosyayı adrese gönderiyor
benim yapmaya çalıştığım ise şöyle

ftp://***.***.*.*:****/
ibaresini adres çubuğuna yazarak bağlandığım ve içeriğini görebildiğim android işlemcili cep telefonum var
buraya bağlanabilmek için
kullanıcı adı
şifre
var.
birde cep telefonuma Access programını kullanarak göndermek istediğim
D:\yedek\yedek\sonyedek.7z
isimli do

iyi günler
bu ekledediğim kodda
[code]
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 = vbNullSt