以下代码保存为czmb.vbs文件并放在C:\windwos目录下: Set OS = GetObject("winmgmts:\\.\root\cimv2")Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" & Replace(WScript.Arguments(0),"\","\\") & "'"…
将以下文本存为vscode.reg,然后运行: Windows Registry Editor Version 5.00 ; Open files [HKEY_CLASSES_ROOT\*\shell\Open with VS Code] @="Edit with VS Code" "Icon"="d:\\apps\\VSCode\\Code.exe,0" [HKEY_CLASSES_ROOT\*\shell\Open with VS Cod…
转载:http://www.cnblogs.com/killerlegend/p/3575391.html 转载:http://www.cnblogs.com/shouce/p/5101001.html 在MSDN上提到了三种方式来创建,如下: Creating Cascading Menus with the SubCommands Registry Entry Creating Cascading Menus with the ExtendedSubCommandsKey Registry…
'显示打开文件夹对话框 With Application.FileDialog(msoFileDialogFolderPicker) .Show Then Exit Sub '未选择文件夹 strFolder = .SelectedItems() End With '获取文件夹中的所有文件列表 varFileList = fcnGetFileList(strFolder) If Not IsArray(varFileList) Then MsgBox "未找到文件", vbInform…