如果尚未打开，请在资源管理器中打开文件夹

Question

我知道如何使用 python 在资源管理器中打开文件夹：

subprocess.Popen(r'explorer /select,"C:\path\of\folder"')

但我不知道如何阻止我的程序打开该文件夹（如果它已在资源管理器中“打开”）。有没有办法在 Python 中（或者通过 VBA 脚本）做到这一点？

Answer 1

这是我发现的一个有趣的线程，其中使用 VBS 脚本找到了列出打开文件夹的工作解决方案，但我不知道如何使用 VBS，因此我无法解决

identifier excepted

错误并使其成功正常工作..

https://social.msdn.microsoft.com/Forums/vstudio/en-US/de63322b-7f94-4464-be72-2e174106da9c/get-file-explorer-all-opened-folders-path-in-vbnet？论坛=vbgeneral

代码本身是：

Imports System.Runtime.InteropServices

导入系统.文本

公开课表格1 私有常量 WM_GETTEXT 作为整数 = &HD 私有常量 WM_GETTEXTLENGTH 作为整数 = &HE

<DllImport("user32.dll", EntryPoint:="FindWindowExW")> _
Private Shared Function FindWindowExW(ByVal hwndParent As System.IntPtr, ByVal hwndChildAfter As System.IntPtr, <InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpszClass As String, <InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpszWindow As String) As System.IntPtr
End Function

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ListBox1.Items.Clear()
    Dim hWinList As New List(Of IntPtr)

    'Get Each Explorer Windows Handle
    Dim hWnd As IntPtr = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "CabinetWClass", Nothing)
    While Not hWnd.Equals(IntPtr.Zero)
        hWinList.Add(hWnd)
        hWnd = FindWindowExW(IntPtr.Zero, hWnd, "CabinetWClass", Nothing)
    End While

    'Loop threw each explorer window in the list and get the text from the Address combobox
    If hWinList.Count > 0 Then
        For Each hChld As IntPtr In hWinList
            Dim hChild1 As IntPtr = FindWindowExW(hChld, IntPtr.Zero, "WorkerW", Nothing)
            Dim hChild2 As IntPtr = FindWindowExW(hChild1, IntPtr.Zero, "ReBarWindow32", Nothing)
            Dim hChild3 As IntPtr = FindWindowExW(hChild2, IntPtr.Zero, "ComboBoxEx32", Nothing)
            Dim len As Integer = SendMessage(hChild3, WM_GETTEXTLENGTH, 0, Nothing)
            Dim sb As New StringBuilder(len + 1)
            SendMessage(hChild3, WM_GETTEXT, len + 1, sb)
            ListBox1.Items.Add(sb.ToString)
        Next
    End If

End Sub

下课

Answer 2

这适用于 Windows 10 终端 (cmd.exe)：

start "" C:\folder

Python 3 代码：

import subprocess
folder = r'C:\folder'
execute = fr'start "" "{folder}"'
subprocess.Popen(execute, shell=True)

Answer 3

我不确定你要做什么，但也许这样的东西会有所帮助：

import os
for root, dirs, files in os.walk(Folder_Root, topdown=False):
    for name in dirs:
        full_path = os.path.join(root, name)
        #use Popen to open the folder here

因此，请通读Folder_Root 下的所有目录，并使用Popen 打开每个目录。每个文件夹只能打开一次。只需将Folder_Root 替换为实际路径即可。