不太科学的打开文件夹,该怎么解决

不太科学的打开文件夹
刚才使用一代码打开ListView选中的文件所在路径，发现重复的也会重新打开，而不是已经打开的文件夹不需要重新打开只需要获得焦点，感觉像病毒一样

Shell "explorer.exe " & 路径, vbNormalFocus

请问有什么方法吗？就像系统一样打开重复打开我的电脑，也只会打开一个，只是重复获得焦点。
[解决办法]
shell "explorer.exe " & 路径
当然每次运行都会打开 “路径”文件；你在ie的地址栏输入相同的地址是重复打开相同的文件效果是一样的

但是，如果你shell的不是exlpore，而是你自己写的程序，是有可能转到已经打开的文件，你必须在你的程序代码里分析转入的参数，并且判断该文件是否已经打开
[解决办法]
本帖最后由 bcrun 于 2013-04-21 07:38:22 编辑

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
  Dim FilePath As String
    FileName = "D:"
    Call ShellExecute(Me.hWnd, vbNullString, FilePath, vbNullString, vbNullString, 1)
End Sub

查看更多 下一篇