czjt1234

vbs

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace("C:\windows")
Set oFolderItems = oFolder.Items()
oFolderItems.Filter &H40 + &H80 + &H10000, "*.exe"
oFolderItems.InvokeVerbEx "Properties"
wsh.Sleep 60 * 1000
复制代码

指定文件夹下的所有 .exe 文件

小白龙

回复 2# czjt1234

多谢大佬,

我试了一下文件参数, 单文件可以, 那多个文件怎么实现呢?
手动操作时, 选定了多个文件, 然后点右键, 选择属性, 弹出一个多个文件属性窗口

czjt1234

' & cls & cscript.exe /nologo /e:vbscript "%~f0" "C:\Program Files" & pause & exit

Set oShell = CreateObject("Shell.Application")
Set oFolderItem = oShell.NameSpace(17).ParseName(wsh.Arguments(0))
oFolderItem.InvokeVerb "Properties"
wsh.Sleep 60 * 1000
复制代码