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

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

点击浏览该文件: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

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

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

 

 

这样对不对啊

 

晕倒，上传失败，在服务器里已经设置了一个名为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 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

这样可以吗？

 

没有报错，不过就是图片无法显示，不过也怪，最后一个图片成功显示，这是为什么？

查了FTP文件夹，有文件上传

知道原因了，在第八、第九、第十列不能加/A/

Dim ftp1 As New FtpClient
ftp1.Host="021.6.net"
ftp1.Account = "user"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim l As String = "/A/"& r("第四列")
Dim f As String = "c:"& r("第八列")
Dim f1 As String = "c:"& r("第九列")
Dim f2 As String = "c:"& r("第十列")
Dim sf As String =  r("第八列")
Dim sf1 As String = r("第九列")
Dim sf2 As String = r("第十列")
If FileSys.DirectoryExists("c:/A/"& r("第四列") ) Then '如果指定的文件目录存在
    If  ftp1.DirExists("/A/"&("第四列") )  Then
        Messagebox.Show("FTP文件目录已经存在!","提示")
    Else
        If ftp1.MakeDir(l) Then
            Messagebox.Show("创建目录成功!")
            If  ftp1.Upload(f,sf) = True And ftp1.Upload(f1,sf1) = True And ftp1.Upload(f2,sf2) = True Then
                Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
            If DataTables("表A").HasChanges Then
                DataTables("表A").Save
            End If
        End If
    End If
    Messagebox.Show("源文件目录不存在!","提示")
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 f1 As String = "c:"& r("第九列")
Dim f2 As String = "c:"& r("第十列")
Dim sf As String =  r("第八列")
Dim sf1 As String = r("第九列")
Dim sf2 As String = r("第十列")
If FileSys.DirectoryExists("c:/A/"& r("第四列") ) Then '如果指定的文件目录存在
    If  ftp1.DirExists(l)  Then
        Messagebox.Show("FTP文件目录已经存在!","提示")
 If  ftp1.Upload(f,sf) = True And ftp1.Upload(f1,sf1) = True And ftp1.Upload(f2,sf2) = True Then
                Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
            If DataTables("表A").HasChanges Then
                DataTables("表A").Save
            End If
       

    Else
        If ftp1.MakeDir(l) Then
            Messagebox.Show("创建目录成功!")
            If  ftp1.Upload(f,sf) = True And ftp1.Upload(f1,sf1) = True And ftp1.Upload(f2,sf2) = True Then
                Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
            If DataTables("表A").HasChanges Then
                DataTables("表A").Save
            End If
        End If
    End If
Else
    Messagebox.Show("源文件目录不存在!","提示")
End If

 

这个应该没问题了