哪位大神，可在文件夹对话选中同级多个文件夹？

mimi3000

哪位大神，可在文件夹对话选中同级多个文件夹？

mimi3000

使用vba如何实现？弹出对话框，选取不同目录，取得每个目录的路径。谢谢

ykcbf1100

多选文件可以，但多选目录好象不行。

x-xx-xx

在 Windows 中，可以使用`explorer.exe`命令打开文件资源管理器，并使用`/select`参数来选中多个文件或文件夹。以下是一个示例代码，演示如何选中多个文件夹：

```bat
explorer /select, "C:\Folder1", "C:\Folder2", "C:\Folder3"
```

在上述代码中，`/select`参数后面跟着要选中的文件夹路径列表。请注意，这些路径之间用逗号分隔，并且每个路径都需要用双引号括起来，以确保命令能够正确解析。

请注意，这只是一个简单的示例，实际应用中可能需要根据具体需求进行进一步的处理，例如将选中的文件夹路径存储到数组或其他数据结构中，以便后续操作。

另外，确保在运行命令之前，先打开相应的文件资源管理器窗口，并在命令提示符中切换到相应的目录。希望这个示例对你有所帮助！如果还有其他问题，请随时提问。😄

ykcbf1100

AI的回复说是可以，但我试了下代码，感觉无法多选。
Sub SelectDirectories()
    Dim dialog As FileDialog
    Dim folder As Variant
   
    ' 创建文件对话框对象
    Set dialog = Application.FileDialog(msoFileDialogFolderPicker)
   
    ' 允许多选
    dialog.AllowMultiSelect = True
   
    ' 显示对话框
    If dialog.Show = -1 Then
        ' 使用 For Each 循环遍历所选目录
        For Each folder In dialog.SelectedItems
            MsgBox folder ' 显示目录路径
        Next folder
    End If
   
    ' 释放对象引用
    Set dialog = Nothing
End Sub

x-xx-xx

试了下 没有成功 哈哈 目前只会选中一个 等大佬

f8b1987

搜了一下本论坛，也在搜索引擎查了一下，没查到有解决的办法。
我VB6使用之前也有类似问题，用的第三方dll。
https://blog.csdn.net/csdn_gdde/article/details/135217863

opiona

多选文件夹,文件夹多选
变通一下: 制作一个窗体 放一个listbox 列出全部文件夹 就可以实现多选了

选择多个文件夹.rar (33.51 KB, 下载次数: 10)

2024-2-22 20:05 上传

点击文件名下载附件

mimi3000

opiona 发表于 2024-2-22 09:03
多选文件夹,文件夹多选
变通一下: 制作一个窗体 放一个listbox 列出全部文件夹 就可以实现多选了

prome3

做个参考吧。官方文档的解释是：用户就不应该能在选择文件夹对话框中多选。
链接：https://learn.microsoft.com/en-us/office/vba/api/office.filedialog.allowmultiselect
中文：https://learn.microsoft.com/zh-cn/office/vba/api/office.filedialog.allowmultiselect




换句话说，它就是这么设计的……