[已解决]如何选中路径里的文件

爱疯

1. 
   
2. Sub a()
   
3.     Shell "Explorer " & "d:\11"
   
4. End Sub
   

复制代码

a()只能达到上图效果。
请问，怎样能达到下图效果(即选中2.txt)？谢谢！

最佳答案

月排行榜 / 总排行榜

kevin3993

2012-8-4 15:07

小弟也是带着这个疑问搜索到这里，后来找到了答案，分享下，绝无冒犯吕版之意，小弟是很尊敬吕版的
Shell "explorer.exe /select," & "d:\11\2.txt", vbNormalFocus

跳转到最佳答案楼层

吕?布

是不是要用

    Dim myDialog As FileDialog
    Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)

爱疯

吕?布 发表于 2011-11-1 12:09
是不是要用

    Dim myDialog As FileDialog

1. Sub Test3()    '浏览对话框
   
2.     Dim FileDlg As FileDialog
   
3.     Dim p As String
   
4.     Set FileDlg = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     If FileDlg.Show = -1 Then
   
6.         p = FileDlg.SelectedItems(1)   '获取选定路径，根据需要，& ""
   
7.     End If
   
8.     Set FileDlg = Nothing
   
9. End Sub

复制代码

是不是像这样，看不出和1楼问题的关系。

1楼问题，是我想的一个问题。平时，我们可以方便打开一个文件夹。
但不知怎么做到打开文件夹的同时，选中其中某个文件。这个特点，很像浏览器里的下载器，点一下刚“文件所在目录”，就打开了该目录并选中了该文件。

我只是觉得，这个特点很实用。如果可以方便实现就好了。

吕?布

如果一定要象你一楼那样打开文件夹再选中文件，也许用API可以，但我感觉有很多事情要做，并不是很好，用你楼上的我个人感觉就很好了。

爱疯

谢谢吕布！

吕?布

这个最佳拿的我感觉自己有点惶恐

爱疯

有时半天，也无回复，好参考。
这种现象挺常见，所以我觉得，只要是认真回复，对楼主多少会有意义的。

kevin3993

小弟也是带着这个疑问搜索到这里，后来找到了答案，分享下，绝无冒犯吕版之意，小弟是很尊敬吕版的
Shell "explorer.exe /select," & "d:\11\2.txt", vbNormalFocus

爱疯

kevin3993 发表于 2012-8-4 15:07
小弟也是带着这个疑问搜索到这里，后来找到了答案，分享下，绝无冒犯吕版之意，小弟是很尊敬吕版的
Shell  ...

谢谢kevin3993！

隔了这么久，终于能完美解决，受益了！
这样的只为学习而来，非常感谢和敬意{:25:}

exc姜

学习