主题：上传带文件夹的图片

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:zdbh.table

此主题相关图片如下：wt1.jpg

 

我想将第八列、第九列、第十列 用FTP的方式一起上传到我的服务器，并在服务器里面同时建立一个和第四列相同名字文件夹

请问怎么在上传按键上写代码啊

假定图片文件存储在C盘的文件夹A里的和第四列同名的文件夹里

比如：

C盘/A/李明/李明1.jpg、李明2.jpg、李明3.jpg

C盘/A/这三/这三1.jpg、这三2.jpg、这三3.jpg

 

上传结果：(192.168.0.17)

/A/李明/李明1.jpg、李明2.jpg、李明3.jpg

/A/这三/这三1.jpg、这三2.jpg、这三3.jpg

参考

 

http://www.foxtable.com/help/topics/1410.htm

 

呃，这上面没有介绍指定的文件名哦，所以不是很懂

 那里有教你怎么新建文件夹，以及指定上传到哪个文件夹。

上传文件夹，也可以这样写

 

ftp1.UploadDirectory("d:\test", False)

Dim ftp1 As New FtpClient
    ftp1.Host="021.co.net"
    ftp1.Account = "user"
    ftp1.Password = "654321"
    Dim f As String = "c:"& "第八列"
    Dim sf As String =   "第八列"

If  ftp1.Upload(f,sf) = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If

 

 

这样对不对啊

 

比如

 

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "c:"& r("第八列")
Dim sf As String =  r("第八列")

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

如果，对应路径不存在，你还要在ftp上新建对应的文件夹

晕倒，上传失败，在服务器里已经设置了一个名为A的文件夹了

看懂代码啊

 

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "d:\test.jpg"
Dim sf As String =  "/A/test.jpg"

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim l As String = "/A/"& r("第四列")
Dim f As String = "c:"& r("第八列")
Dim sf As String =  r("第八列")
If ftp1.MakeDir(l) Then
      Messagebox.Show("创建目录成功!")
Else
      Messagebox.Show("创建目录失败!")
End If
If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If