Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态设置文件存储位置


  共有3422人关注过本帖树形打印复制链接

主题：动态设置文件存储位置
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		动态设置文件存储位置  发帖心情 Post By：2015/4/15 0:39:00 [显示全部帖子]

假定表中有两列列，分别是作者、照片，希望向照片列添加文件的时候，自动根据作者创建子目录来存放文件，例如作者张三拍摄的照片存放在
远程文件夹\PIC的子目录"张三"下：
Dim ftp1 As New FtpClient
ftp1.Host="115.29.38.211"
ftp1.Account = "tuftp"
ftp1.Password = "11111111"


Dim dr As DataRow = e.DataRow
If dr.IsNull("作者") Then
    MessageBox.Show("作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("作者") & "\" & dr("") 
End If

如何写，不会了？
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:09:00 [显示全部帖子]

是写在表的beforeattachfile事件中吗， 不过， 我设计的是双击表中某行打开一个窗口，窗口中有个文件管理器， 点击增加图片的， 代码应该写在哪里

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:18:00 [显示全部帖子]

BIN老师， 好像没起作用

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:28:00 [显示全部帖子]

假定表中有三列，分别是作者、原始照片，修改图片， 希望向原始照片列，修改图片列添加文件的时候，自动根据作者创建子目录来存放文件，例如作者张三， 原始图片放在远程文件夹\PIC的子目录"张三"下， 修改图片也放在远程文件夹\PIC的子目录"张三"下， 如何修改代码呢
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:42:00 [显示全部帖子]

我在窗口里用的是文件管理器FileManager， 

Dim ftp1 As New FtpClient
ftp1.Host="115.29.38.211"
ftp1.Account = "tuftp"
ftp1.Password = "11111111"
ftp1.port = 20

用Dim ftp1 As New FtpClient 还是Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")??
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:50:00 [显示全部帖子]

远程路径地址如何写

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 10:05:00 [显示全部帖子]

假定表中有三列，分别是图号、原始图纸，生产图纸， 希望向原始图纸列，生产图纸列添加文件的时候，自动根据图号创建子目录来存放文件，例如图号A001， 原始图纸放在远程文件夹\的子目录"A001"下， 生产图纸也放在远程文件夹\的子目录"A001"下

代码如下， 错在哪里？

Dim ftp1 As New FtpClient
ftp1.Host="115.29.38.233"
ftp1.Account = "tuftp"
ftp1.Password = "********"
ftp1.port = 20


Dim dr As DataRow = e.DataRow
If dr.IsNull("图号") Then
    MessageBox.Show("图号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = "\" & dr("图号")
End If
[此贴子已经被作者于2015/4/15 10:05:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 10:23:00 [显示全部帖子]

11楼不就是新建目录的代码吗？

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 13:08:00 [显示全部帖子]

官方有无测试FTP地址， 我好做个例子
[此贴子已经被作者于2015/4/15 13:07:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 13:28:00 [显示全部帖子]

能否同老师私聊

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询