以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp上找到指定文件夹名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101343)

--  作者:有点色
--  发布时间:2017/5/29 10:21:00
--  

 你【项目名称】的文件夹肯定有很多个,要放到哪个下面去?根据什么规则?

 

 另外一个表,和前面一个表的关联是什么?为什么不能直接读取前面一个表的数据,得到路径?


--  作者:有点蓝
--  发布时间:2017/5/31 8:57:00
--  
参考GetDirList用法:http://www.foxtable.com/webhelp/scr/1410.htm

获取目录列表后循环判断是否包含指定的名称



--  作者:有点色
--  发布时间:2017/5/31 8:59:00
--  

 去表里面查找对应的行,根据AAA查找到 201704 和 AAA 的值,然后不就得到路径名了?


--  作者:有点色
--  发布时间:2017/6/1 16:48:00
--  
Dim dt As DataTable = DataTables("表B")
Dim xm As String = "AAA"
Dim fdr As DataRow = dt.Find("项目名称 = \'" & xm & "\'")
If fdr IsNot Nothing Then
    Dim path As String = "/DL/Ztbzl/" & Format(fdr("开标日期"), "yyyyMM") & fdr("项目名称")
    msgbox(path)
End If

--  作者:有点色
--  发布时间:2017/6/1 17:39:00
--  

 1、这样的效率太低;

 

 2、你ftp上的路径是由表格生成,那就直接去找表。


--  作者:有点色
--  发布时间:2017/6/2 18:01:00
--  

 

你用的是系统的上传功能,还是自己编写代码上传?

 

只有自己编写代码上传,你才能控制其名字。


--  作者:有点蓝
--  发布时间:2017/6/2 20:24:00
--  

[此贴子已经被作者于2017/6/2 21:12:48编辑过]

--  作者:有点蓝
--  发布时间:2017/6/2 21:23:00
--  
嗯。你要自己做个窗口,用代码上传才行



Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
Dim name = Tables("表B").Current("客户姓名")
    If piv.FTPclient.Upload(dlg.FileName,"\\T2\\" & name  & ".jpg") = True Then
        piv.AddFile("\\T2\\" & name  & ".jpg")
    End If
End If

--  作者:有点蓝
--  发布时间:2017/6/2 21:51:00
--  
只能自己使用代码上传,才能重命名。列属性那个窗口做不到
--  作者:有点蓝
--  发布时间:2017/6/2 22:14:00
--  
17楼就是,不会就上传例子