以下代码保存为czmb.vbs文件并放在C:\windwos目录下: Set OS = GetObject("winmgmts:\\.\root\cimv2")Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" & Replace(WScript.Arguments(0),"\","\\") & "'"…
第一种:Function BrowseForFile() Dim shell : Set shell = CreateObject("WScript.Shell") Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2) Dim tempName : …
添加自定义工具: Tools -> Configure User Tools... -> Add Tool >> Menu Text: 打开所在的文件夹 Command: explorer Argument: /select,$(FilePath) Initial: $(FileDir) Action: 选择 Close window on exit Save: 选择 All Open Files 如图:…
最近把工作环境迁移到ubuntu,装了WPS for Linux ,说实话确实是十分良心啊!运行效率奇高,绿色无广告,并且和windows版本无异,感觉就可以抛弃自带的libreoffice了. 但是有个问题就是没有办法使用双击打开(由于我安装的是免安装版),最主要的问题还是无法在右键->打开方式->其它方式里面找到. 这修改两个路径文件是修改默认打开方式的方法之一,但是感觉治标不治本,还是想办法把程序添加到右键菜单吧. /etc/gnome/defaults.list ~/.local/sh…