Foxtable(狐表)用户栏目专家坐堂 → 怎样打开指定文件的文件夹并选中该文件


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

主题:怎样打开指定文件的文件夹并选中该文件

帅哥哟,离线,有人找我吗?
lxy060669
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:2609 威望:0 精华:0 注册:2012/10/16 22:38:00
怎样打开指定文件的文件夹并选中该文件  发帖心情 Post By:2015/8/29 17:58:00 [只看该作者]

请问老师:

       在foxtable中,怎样打开指定文件的文件夹并选中该文件。

我现在能实现打开文件夹,但不能实现选中文件。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/29 18:09:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/29 18:11:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/29 18:12:00 [只看该作者]

文件的相关操作参考这里

 回到顶部
帅哥哟,离线,有人找我吗?
lxy060669
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:2609 威望:0 精华:0 注册:2012/10/16 22:38:00
  发帖心情 Post By:2015/8/29 18:43:00 [只看该作者]

老师给的连接是不能实现的。

我搜索了网页,在VB中用下面的代码实现的。

 

Private Sub Command1_Click()
Shell "explorer.exe /select,C:\test\123.txt ", vbNormalFocus

End Sub

 

现在怎样把上面的代码引用到foxtable中呢?


 回到顶部
帅哥哟,离线,有人找我吗?
lxy060669
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:2609 威望:0 精华:0 注册:2012/10/16 22:38:00
  发帖心情 Post By:2015/8/29 18:52:00 [只看该作者]

我已经实现了。

在全局代码中将刚才的shell语句放进去,定义一个全局变量,并引用即可。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/29 19:21:00 [只看该作者]

图片点击可在新窗口打开查看
打开文本文件
Dim Proc As New Process
Proc
.File = "Notepad.exe" '指定要执行的文件
Proc.Arguments = 
"c:\table.txt" '指定命令行参数
Proc
.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
lxy060669
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:2609 威望:0 精华:0 注册:2012/10/16 22:38:00
  发帖心情 Post By:2015/8/29 21:40:00 [只看该作者]

已经完美的实现这个功能,谢谢老师。

 

'-----打开文件目录并打开文件所在目录
Dim Proc As New Process
Dim r As Row = Tables("文件管理表").Current
Dim rs As String = "  /select," & r("文件路径") & " "
'output.Show(rs)
Proc.File = "explorer.exe" '指定要执行的文件
Proc.Arguments = rs '指定命令行参数
Proc.Start()


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/30 10:24:00 [只看该作者]

System.Diagnostics.Process.Start("Explorer", "/select,c:\Windows")

 回到顶部