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


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

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

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


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

请问老师:

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
lxy060669
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我已经实现了。

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


 回到顶部
帅哥哟,离线,有人找我吗?
lxy060669
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()


 回到顶部