Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
Wscript.Echo objPath
问题补充：
就是BrowseForFolder方法显示出来的文件夹选择框在wincc置前。因为这个选择框出来以后，我点击画面，选择框就跑到画面后面去了。如何才嫩能使选择框始终在最前方，直到点击确定或者取消。
最佳答案
对于画面显示前端的，可使用下面方法
如何在 WinCC 中将其它程序的窗口置于最前面？
https://support.industry.siemens.com/cs/cn/zh/view/415808
提问者对于答案的评价：
谢谢你啊
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc364114.html
微信扫一扫 
支付宝扫一扫 