批处理之家 - Powered by Discuz! Board

标题: [文本处理] 【已解决】BAT：如何批量将多个快捷键的运行方式更改为最大化 [打印本页]

作者: 思想之翼 时间: 2014-9-19 03:50 标题: 【已解决】BAT：如何批量将多个快捷键的运行方式更改为最大化

本帖最后由思想之翼于 2014-9-20 20:14 编辑

有多个运用程序的快捷键，如何批量将这些快捷键的运行方式更改为最大化？

作者: apang 时间: 2014-9-19 10:26

本帖最后由 apang 于 2014-9-19 19:22 编辑

strPath = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")-1)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strPath)
Set fso = CreateObject("Scripting.FileSystemObject")

For Each file in fso.GetFolder(strPath).Files
    If LCase(Right(file, 4)) = ".lnk" Then
        Set objShellLink = objFolder.ParseName(file.Name).GetLink
        objShellLink.ShowCommand = 3
        objShellLink.Save
    End If
Next

MsgBox "OK"
复制代码

作者: 思想之翼 时间: 2014-9-19 17:42

本帖最后由思想之翼于 2014-9-19 17:55 编辑

回复 2# apang

感谢您的帮助！
好像快捷键要在桌面，如果快捷键被移入某个文件夹里，代码好像不起作用了。
能否将代码修改为：改变与代码处于同一个文件内的所有快捷键的运行方式为“最大化”？

作者: apang 时间: 2014-9-19 19:23

回复 3# 思想之翼

已修改

欢迎光临批处理之家 (http://www.bathome.net/)