此主题相关图片如下：ftpdoc.png

上传的代码

Dim ftp As New FtpClient
ftp.Host="xxx.29.38.xxx"
ftp.Account = "tuftp"
ftp.Password = "********"
ftp.port = "20"

Dim fp As String = "\\tuzhi\\sctuzhi" & Tables("图纸列表").current("图号")
Dim sts As List(of String) = ftp.GetFileList(fp)   \'获取当前目录的文件列表
If sts.Count >0 Then
    For Each st As String In sts
        If st = fname Then
            MessageBox.Show("服务器上存在同名文件!","提醒")
            Return  \'这里简化了操作, 可以自己做是否覆盖的功能
        End If
    Next
    e.form.text = "scftp管理器  文件上传中...."
    If ftp.upload(dlg.FileName,fp & "\\" & fname) = True Then   \'若成功上传
        Functions.Execute("刷新LISTVIEW")\'这个是自定义函数
        e.Form.text = "scftp管理器"
        MessageBox.Show("上传成功","提醒")
    Else
        MessageBox.Show("上传失败","提醒")
        e.Form.text = "scftp管理器"
    End If
End If

End If

没老师回复