以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上传过程出现意外错误，上传失败  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100925)
--  作者：天蝉一下
--  发布时间：2017/5/21 16:15:00
--  上传过程出现意外错误，上传失败
Dim 接收用户  As String
接收用户 = e.Form.Controls("接收用户").text
Dim ftp As new FTPClient
    ftp.host="*****"
    ftp.Port = 21
    ftp.account="******"
    ftp.password="*****"
    ftp.Connect
    If ftp.Connected = True Then
        msgbox("链接成功,准备上传!")
    End If
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*.png" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    \'____________________
    If FileSys.FileExists( dlg.FileName )   Then \'判断选择的文件是否存在 ,其中FileSys.GetName是获取不含路径文
        Dim F As String=FileSys.GetName( dlg.FileName)
        Dim File As String= ProjectPath & "Attachments\\"  &  _UserName & "\\"  &  f
        Dim File2 As String= Vars("网络文件夹") & _UserName & "\\" & f
        e.Form.Controls("等待").Visible = True \'控件显示
        e.Form.Controls("等待").TopMost= True \'最顶端
        Application.DoEvents()    \'即刻暂停代码的执行,重新绘制控件后,继续执行代码.
        \'-----------判断服务器上是否的相同文件名的文件
        Dim File3 As String=File2
        Dim Sum As Integer
        Dim i As Integer
        For i = 1 To 10000
            Sum = Sum + 1
            If Sum >1  Then
                File2=Vars("网络文件夹") & _UserName & "\\" & "(" & Sum & ")" & F
            End If
            If ftp1.FileExists( File2 )=False   Then \'判断文件是否存在,没有的停止计数
                Exit For
            End If
        Next
        FileSys.CopyFile(dlg.FileName ,File, True) \'复制到本地文件夹
        ftp1.Upload(dlg.FileName ,File2, True) \'复制到服务器文件夹
        If ftp1.FileExists( File2 )   Then \'判断文件是否存在

执行后出现“上传过程出现意外错误，上传失败”，不知道代码哪的问题
--  作者：有点色
--  发布时间：2017/5/22 10:09:00
--  

 打开管理窗口测试上传能否正常？

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.OpenManager()

 

 单独写upload代码能否正常？