主题：[求助] 上传照片

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim t As Row = Tables("集客项目工单清单表").current   
    Dim fls1 As String = ""
    Dim ftp1 As New FtpClient
    ftp1.Host="192.168.1.100"
    ftp1.Port = 23
    ftp1.Account = "abc"
    ftp1.Password = "321"
    If ftp1.DirExists( "/Homenetwork/" & t("上传资料路径") ) Then '判断目录是否存在
    Else
        ftp1.MakeDir( "/Homenetwork/" & t("上传资料路径") ) '新建目录
    End If
    ftp1.Changedir( "/Homenetwork/" & t("上传资料路径")  )'设置路径为当前目录
   
    If ftp1.Upload(dlg.FileName,"Homenetwork/" & filesys.GetName(dlg.FileName)) = True Then
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If   
End If

我想实现自主选择要上传的文件；并且上传到服务器的文件名称默认为我所选择的文件名称。命令该怎么写？

 

ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg")

 

c:\data\Desert.jpg  是指定要上传的路径和文件名称；如果我要把这个改成打开一个路径和文件选择窗口。可以很自由的选择要上传的文件

 

\update\Desert.jpg  是指定上传的目标路径和文件名称；如果我要让 Desert.jpg 这个指定的文件名称自动填写我所选择的文件名称

参考31楼。

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮     Dim t As Row = Tables("集客项目工单清单表").current        Dim fls1 As String = ""     Dim ftp1 As New FtpClient     ftp1.Host="192.168.1.100"     ftp1.Port = 23     ftp1.Account = "abc"     ftp1.Password = "321"           If ftp1.Upload(dlg.FileName,"Homenetwork/" & filesys.GetName(dlg.FileName)) = True Then         Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)     Else         Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)     End If    End If   参照以上思路；想要设置一个可以读取放在服务器上 Homenetwork/ 目录下的所有文件；然后点击其中一个文件后进行删除。该怎么处理？

 

建议直接打开ftp管理器处理

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.DeleteEnabled =False '禁用删除文件按钮
ftp1.RenameEnabled = False '禁用重命名文件按钮
ftp1.RootDir = "\photo" '设置根目录
ftp1.OpenManager()

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.DeleteFile("/Homenetwork/&  t("上传资料路径") &"/"& e.Form.Controls("上传资料文件").text") = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

提示错误；该怎么改？

 

 

此主题相关图片如下：360截图20180608145703172.jpg

If ftp1.DeleteFile("/Homenetwork/" & t("上传资料路径") & "/" & e.Form.Controls("上传资料文件").text) = True Then

此主题相关图片如下：360截图20180608151410140.jpg

类似

【删除资料】按钮的命令如下；提示以下错误。我的命令该怎么修改？

 

 

Dim t As Row = Tables("集客项目工单清单表").current

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

If ftp1.DeleteFile("/Homenetwork/" & t("文件路径") & "/" & e.Form.Controls("删除文件")) = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

此主题相关图片如下：360截图20180610130419423.jpg