以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  上传带文件夹的图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85347)
--  作者：hongyefor
--  发布时间：2016/5/23 19:16:00
--  上传带文件夹的图片

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件: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
--  作者：大红袍
--  发布时间：2016/5/23 19:18:00
--  

参考

 

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

 
--  作者：hongyefor
--  发布时间：2016/5/23 19:26:00
--  
呃，这上面没有介绍指定的文件名哦，所以不是很懂
--  作者：大红袍
--  发布时间：2016/5/23 19:27:00
--  
 那里有教你怎么新建文件夹，以及指定上传到哪个文件夹。
[此贴子已经被作者于2016/5/23 19:27:39编辑过]
--  作者：大红袍
--  发布时间：2016/5/23 19:29:00
--  

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

 

ftp1.UploadDirectory("d:\\test", False)
--  作者：hongyefor
--  发布时间：2016/5/23 19:55:00
--  

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

 

 

这样对不对啊

 

[此贴子已经被作者于2016/5/23 19:55:29编辑过]
--  作者：大红袍
--  发布时间：2016/5/23 19:58:00
--  

比如

 

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上新建对应的文件夹
--  作者：hongyefor
--  发布时间：2016/5/23 20:57:00
--  
晕倒，上传失败，在服务器里已经设置了一个名为A的文件夹了
--  作者：大红袍
--  发布时间：2016/5/23 21:03:00
--  

看懂代码啊

 

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

 
--  作者：hongyefor
--  发布时间：2016/5/23 21:12:00
--  
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