Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于打开局域网共享文件夹中的文件


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

主题：[求助]关于打开局域网共享文件夹中的文件
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/14 11:41:00 [显示全部帖子]

 获取所有文件，参考

 

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

 

 

 

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/14 11:42:00 [显示全部帖子]

目录树增加节点，参考

 

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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/14 14:34:00 [显示全部帖子]

 呃，做一个窗口，放入一个目录树，然后感觉2、3楼编写代码生成你要的东西。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/16 9:35:00 [显示全部帖子]

以下是引用nanatu在2016/6/16 8:32:00的发言：
这个理解了，其实我是把所有文件的名字都录入到表里面的文件列，我想通过这个列能打开我需要的文件

 

执行代码，比如

 

Dim Proc As New Process
Proc.File = "d:\test\" & Tables("表A").Current("第一列")
Proc.Start()

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/16 9:37:00 [显示全部帖子]

以下是引用nanatu在2016/6/16 8:32:00的发言：
这个理解了，其实我是把所有文件的名字都录入到表里面的文件列，我想通过这个列能打开我需要的文件

 

文件列，本来就有打开文件的功能

 

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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/16 16:43:00 [显示全部帖子]

 窗口里，你用什么控件显示，截图说明。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/16 17:21:00 [显示全部帖子]

 那表是什么表？副本表，还是SqlTable，还是SqlQuery？

 

 你把表锁定不允许编辑？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/30 14:47:00 [显示全部帖子]

以下是引用nanatu在2016/6/30 14:42:00的发言：
就是normal，我是禁止了编辑

 

禁止编辑，自然不能打开文件。禁止编辑，尽量去写startEdit事件 e.Cancel = true
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/30 14:49:00 [显示全部帖子]

以下是引用nanatu在2016/6/30 14:40:00的发言：

窗口只有目录树和表，我还没有添加其他控件，我打算是要加个按钮。还有我的文件都放在局域网里作为文件服务器的电脑上，也是按常规的写地址吗

 

放在哪里都没问题，按钮代码这样写

 

Dim path As String = DataTables("表A").dataCols("第一列").DefaultFolder
If path = Nothing Then
    path = ProjectPath & "attachments/"
End If
path = path & Tables("表a").Current("第一列")
Dim proc As new Process
proc.File = path
proc.Start
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/30 17:50:00 [显示全部帖子]

以下是引用nanatu在2016/6/30 17:20:00的发言：

问题解决了，谢谢！

不过还有一个问题，因为数据用的是外部数据，每次别人打开项目之前都要手动连接一下存放数据的电脑，这个需要在项目里怎么设置才能解决这个问题啊

 

登陆的意思？

 

BeforeOpenProject加入代码

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use  \\192.168.44.202\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")
 回到顶部
总数 32 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 5 次数据查询