调用'打开'来自Windows桌面的对话框

时间:2014-06-13 17:06:15

标签: windows function dll vbscript windows-xp

我是否可以通过编程方式(在VBS中)或使用CMD / RUN打开包含位置栏和浏览器的“打开”对话框,但没有打开说明记事本或MSpaint?

http://i.technet.microsoft.com/dynimg/IC354177.jpg

我想在桌面本身上使用它,如果有一个我可以使用的DLL而不是拥有VBS文件会非常酷,但如果不是我确定它可能在VBS中。

我正忙着搜索实际打开的对话框来自哪里,它应该来自某个DLL文件。

我甚至可以考虑阻止Windows shell一起打开,只是在一些计算机上使用这个打开的窗口作为shell。

问候,Rocklore

1 个答案:

答案 0 :(得分:1)

您使用的是哪个版本的Windows?

"UserAccounts.CommonDialog"是在XP中执行此操作的方法。但它在Windows 7中不再存在。您可以使用BrowseForFolder()方法的一些可用标志使其看起来像文件打开对话框。有关示例,请参阅this页。

XP编辑:

以下是使用UserAccounts.CommonDialog的XP示例。

With CreateObject("UserAccounts.CommonDialog")

    .InitialDir = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    .Filter = "All Files|*.*"

    ' Show the dialog. If [Open] is clicked, save the name of the selected file...
    If .ShowOpen Then strFile = .FileName

End With