Foxtable(狐表)用户栏目专家坐堂 → 上传文件,为啥提示失败


  共有2394人关注过本帖平板打印复制链接

主题:上传文件,为啥提示失败

帅哥哟,离线,有人找我吗?
天蝉一线
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:370 积分:3195 威望:0 精华:0 注册:2016/6/16 16:11:00
上传文件,为啥提示失败  发帖心情 Post By:2016/8/7 10:35:00 [只看该作者]

Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "ccgluser"
ftp1.Password = "5991404cwk"
ftp1.UTF8 = True
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim finfo As New FileInfo(f)
        If ftp1.Upload(f,"/文件" & finfo.Name.Replace(finfo.Extension, Format(Date.Now, "yyyyMMddHHmmss") & finfo.Extension)) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If
ftp1.Close

我在服务器上设置了“文件”夹共享,不过登陆的时候需要服务器本身设置的用户名和密码才能访问

 回到顶部