1 Star 0 Fork 17

bingbing/NScript_1

forked from bingbing/NScript 
加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
AddExtToEnv.vbs 299 Bytes
一键复制 编辑 原始数据 按行查看 历史
milaoshu1020 提交于 2020-02-10 17:24 . Change vbs file name;
Set shell = createobject("wscript.shell")
Set sysenv = shell.environment("System")
addtopathext ";.LNK"
addtopathext ";.VBX"
addtopathext ";.CSX"
Sub AddToPathExt(extname)
If InStr(LCase(sysenv("PATHEXT")),LCase(extname)) = 0 Then
sysenv("PATHEXT") = sysenv("PATHEXT") & extname
End If
End Sub
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Visual Basic
1
https://gitee.com/ice-icee123/NScript_1.git
git@gitee.com:ice-icee123/NScript_1.git
ice-icee123
NScript_1
NScript_1
master

搜索帮助