以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  PictureViewer1，数据字段问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95118)
--  作者：cuicuibing
--  发布时间：2017/1/10 16:55:00
--  PictureViewer1，数据字段问题
用PictureViewer1远程管理图片，绑定的列，存放多个图片时，数据列中数据如下：
SJ-22\\NB.jpg
SJ-22\\1.jpg

我有几千个图片，想上传的服务器，请教如何批量设置列里边的数据为以上格式。
举例如下：
aaa.jpg   ccc.jpg   ddd.jpg   aaa1.jpg   ccc1.jpg   ddd1.jpg

上传目录根目录后面
aaa  下面 为  aaa.jpg  aaa1.jpg


绑定图片列添加为：

aaa\\aaa.jpg
aaa\\aaa1.jpg

其他同理
--  作者：有点色
--  发布时间：2017/1/10 17:14:00
--  

参考代码

 

Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp1 As New FtpClient
    ftp1.Host="127.0.0.1"
    ftp1.Account = "test"
    ftp1.Password = "test"
    ftp1.UTF8 = True
    For Each f As String In dlg.FileNames
        Dim r As New System.Text.RegularExpressions.Regex("[0-9]*\\.{1}")
        Dim ary() As String = r.Split(FileSys.GetName(f))
        Dim path As String = ary(0)
        If ftp1.DirExists(path) = False Then ftp1.MakeDir(path)
        If ftp1.Upload(f, "/" & path & "/" & filesys.GetName(f)) = True Then
            output.show("上传:" & filesys.GetName(f) & " 成功")
        Else
            output.show("上传:" & filesys.GetName(f) & " 失败")
        End If
    Next
    ftp1.Close
End If