对话框的默认打开，改为D盘，谢谢ynzsvt、taller老师！

lhj323323 · 发表于 2024-10-3 10:35

本帖最后由 lhj323323 于 2024-10-3 12:41 编辑

老师：

如下语句，打开的窗口，默认是我的电脑
我想改为默认是D盘

Sub test()
Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)
End Sub

复制代码

老师如有空，请帮忙看看，先谢谢了！

ynzsvt · 发表于 2024-10-3 11:18

如果只要某文件夹及子文件夹选择，可以加第四个参数的。

lhj323323 · 发表于 2024-10-3 12:28

本帖最后由 lhj323323 于 2024-10-3 12:31 编辑

ynzsvt 发表于 2024-10-3 11:18
如果只要某文件夹及子文件夹选择，可以加第四个参数的。

请问，怎么加？
BrowseForFolder(0, "选择文件夹", 0, 0)

taller · 发表于 2024-10-3 12:30

试试

Sub test()
Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0, "d:\")
End Sub

lhj323323 · 发表于 2024-10-3 12:40

ynzsvt 发表于 2024-10-3 11:18
如果只要某文件夹及子文件夹选择，可以加第四个参数的。

Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0, "D:\")

		自动登录	找回密码
密码			免费注册

[已解决] 对话框的默认打开，改为D盘，谢谢ynzsvt、taller老师！