[问题求助] [已解决] VBS中创建带有unicode字符的快捷方式应如何改？

adan1

由于脚本带有unciode字符，VBS文件必须保存为unicode编码，跟目标程序于同一目录下，这个目录也是带有unicode字符的。
就这样运行的话，第6行就报错了。

rootPath=createobject("Scripting.FileSystemObject").GetFolder(".").Path
currentPath=rootPath & "\"
set WshShell=WScript.CreateObject("WScript.Shell")

set oShellLink=WshShell.CreateShortcut(currentPath & "イブニクル・ランス版.lnk")
oShellLink.TargetPath=currentPath & "EvenicleRance.exe"
oShellLink.Arguments=""
oShellLink.WorkingDirectory=currentPath
'oShellLink.Hotkey=""
oShellLink.WindowStyle=1
oShellLink.Description=""
oShellLink.Save
复制代码

adan1

回复 2# yu2n


    感谢回答，思路上是可以的。不过在我这边用上面代码执行，同样报第6行的错，估计是目录带有unicode字符造成的。我另外测试，如果targetPath指向的文件名也带有unicode字符，依然会报错。
我感觉不解决根本的字符转换问题，会是处处碰壁。

adan1

回复 4# yu2n

测试平台 Win7x86
1. 目标文件所在目录带有unicode字符，比如：・
    使用2L代码，执行后提示错误：

2. 目标文件名带有unicode字符，比如：・
    目录没有带unicode字符，使用2L代码并修改targetPath指向带有unicode字符名的文件，执行后提示错误：

adan1

回复 6# yu2n

没怎么弄过INF，常见于驱动那边，看上去会给系统绑定些什么的。。。

adan1

回复 7# CommandBatCmd


嗯，很同意历史遗留的编码问题，以前相对封闭的空间使用区域性编码，而现在全世界互联造成各种冲突。Windows上至今升级到WIN10好像仍用这样的编码方式，写个批处理换别的语言平台就显示乱码了。
你提出的只使用系统默认编码之内的字符，做法是正确的，不过我觉得这应该是真正软件开发者所要考虑的，而我只是事后为其做些小事情，在不破坏原有程序的前提下。前几次我遇到过带unicode字符的快捷方式，那时是使用形状相近的非unicode字符替换 临时解决掉，而现在连目录也带有unicode字符，现有的脚本无法可施。

adan1

回复 8# 老刘1号

。。。压缩包的方式算是写死了吧，而且还要求自带解压程序，这曲线想想都麻烦

adan1

我google了几篇国外求助贴，算是搞起来了。一开始是用VBS去执行powershell的，后来才想起可以直接VBS。。。

set fso = CreateObject("Scripting.FileSystemObject")
rootPath = fso.GetFolder(".").Path
set objShell = CreateObject("shell.application")

currentPath = rootPath & "\"
set objFolder = objShell.NameSpace(currentPath)

lnkname = "イブニクル・ランス版.lnk"
set objFolderItem = objFolder.ParseName(lnkname)
if objFolderItem Is Nothing then
    fso.CreateTextFile currentPath & lnkname, true
    set objFolderItem = objFolder.ParseName(lnkname)
end if

set objShellLink = objFolderItem.GetLink
objShellLink.Path = currentPath & "Evenicle・Rance.exe"
objShellLink.Arguments = ""
objShellLink.WorkingDirectory = currentPath
objShellLink.Hotkey = 0
objShellLink.ShowCommand = 1
objShellLink.Description = ""
objShellLink.SetIconLocation currentPath & "Evenicle・Rance.exe", 0
objShellLink.Save()
复制代码

暂时先这样，看看还有没需要改正的。

adan1

今天又是带有unicode的，而且是多个，顺应修改下复用。

set objShell = CreateObject("shell.application")
set fso = CreateObject("Scripting.FileSystemObject")
Function createLink(path, linkName)
    set objFolder = objShell.NameSpace(path)
    set objFolderItem = objFolder.ParseName(linkName)
    if objFolderItem Is Nothing then
        fso.CreateTextFile path & linkName, true
        set objFolderItem = objFolder.ParseName(linkName)
    end if
    set createLink = objFolderItem.GetLink
End Function

rootPath = fso.GetFolder(".").Path
Function currentPath(path)
    if isNull(path) then
        currentPath = rootPath
    elseif path = "" then
        currentPath = rootPath & "\"
    elseif path = "\" then               '特殊
        currentPath = rootPath
    elseif left(path, 1) = "\" then      '特殊
        currentPath = rootPath & path
    elseif right(path, 1) = "\" then
        currentPath = rootPath & "\" & path
    else
        currentPath = rootPath & "\" & path & "\"
    end if
End Function


set objShellLink = createLink(currentPath(""), "手垢塗れの天使.lnk")
objShellLink.Path = currentPath("") & "angel.exe"
objShellLink.Arguments = ""
objShellLink.WorkingDirectory = currentPath("\")
objShellLink.Hotkey = 0
objShellLink.ShowCommand = 1
objShellLink.Description = ""
objShellLink.SetIconLocation currentPath("") & "angel.exe", 0
objShellLink.Save()

set objShellLink = createLink(currentPath(""), "手垢塗れの天使の詳細設定.lnk")
objShellLink.Path = currentPath("") & "angel.exe"
objShellLink.Arguments = "-userconf"
objShellLink.WorkingDirectory = currentPath("\")
objShellLink.Hotkey = 0
objShellLink.ShowCommand = 1
objShellLink.Description = ""
'objShellLink.SetIconLocation currentPath("") & ".exe.ico.dll", 0
objShellLink.Save()

set objShellLink = createLink(currentPath(""), "手垢塗れの天使のファイル破損チェック.lnk")
objShellLink.Path = currentPath("data") & "ファイル破損チェックツール.exe"
objShellLink.Arguments = ""
objShellLink.WorkingDirectory = currentPath("\")
objShellLink.Hotkey = 0
objShellLink.ShowCommand = 1
objShellLink.Description = ""
'objShellLink.SetIconLocation currentPath("") & ".exe.ico.dll", 0
objShellLink.Save()
复制代码

adan1

回复 14# yu2n

不错