yu2n

曲线救国：先创建可操作的文件名（EvenicleRance.lnk），再重命名为你要的文件名（イブニクル・ランス版.lnk）。

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

set oShellLink=WshShell.CreateShortcut(currentPath & "EvenicleRance.lnk")
oShellLink.TargetPath=currentPath & "EvenicleRance.exe"
oShellLink.Arguments=""
oShellLink.WorkingDirectory=currentPath
'oShellLink.Hotkey=""
oShellLink.WindowStyle=1
oShellLink.Description=""
oShellLink.Save

Set fso = CreateObject("Scripting.filesystemobject")
fso.GetFile(currentPath & "EvenicleRance.lnk").Move currentPath & "イブニクル・ランス版.lnk"
复制代码

yu2n

回复 3# adan1

    测试环境：Win10x64。
    我这里测试自己的代码没有报错。
    我这里测试你的代码是第 12 行错误，没有第 6 行报错。第 6 行报错可能是没有写权限，第 12 行报错可能是字符集问题。

    说到底，你报错的提示是什么？

yu2n

回复 5# adan1


    原来目录也是日文，没看清。
看来此路不通，换inf调用试试吧。

参考：
inf 创建 快捷方式
inf文件如何使用命令安装

yu2n

Mark. 墙内资料不好找。

'VBS 使用 Shell.Application 创建快捷方式
Option Explicit 

Main
'================================================================================
Sub Main()
'================================================================================
	Dim exePath, lnkPath
	'在当前目录创建
	exePath = "Evenicle・Rance.exe" 
	lnkPath = "イブニクル・ランス版.lnk"
	If CreateLink(exePath, lnkPath) Then
		Msgbox lnkPath & " 创建成功！", vbInformation, WScript.ScriptName
	Else
		Msgbox lnkPath & " 创建失败！", vbCritical, WScript.ScriptName
	End If

	'在当前用户桌面创建
	exePath = "Evenicle・Rance.exe" 
	lnkPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\イブニクル・ランス版.lnk"
	If CreateLink(exePath, lnkPath) Then
		Msgbox lnkPath & " 创建成功！", vbInformation, WScript.ScriptName
	Else
		Msgbox lnkPath & " 创建失败！", vbCritical, WScript.ScriptName
	End If
End Sub


'================================================================================
'使用 Shell.Application 创建快捷方式
'================================================================================
Function CreateLink(ByVal exePath, ByVal lnkPath)
	Dim exeDir, exeName, lnkDir, lnkName
	Dim objFS, objShell, objFolder, objFolderItem, objShellLink
	Set objFS = CreateObject("Scripting.FileSystemObject")
	Set objShell = CreateObject("Shell.Application")
	CreateLink = False
	exeName = Split(exePath,"\")(UBound(Split(exePath,"\")))	'设置路径
	exeDir = Left(exePath, Len(exePath) - Len(exeName))
	lnkName = Split(lnkPath,"\")(UBound(Split(lnkPath,"\")))
	lnkDir = Left(lnkPath, Len(lnkPath) - Len(lnkName))
	If exeDir = "" Then exeDir = objFS.GetFolder(".").Path & "\"
	If lnkDir = "" Then lnkDir = exeDir
	Set objFolder = objShell.NameSpace(lnkDir)					'获取快捷方式对象
	If objFolder Is Nothing Then Exit Function
	Set objFolderItem = objFolder.ParseName(lnkName)
	If objFolderItem Is Nothing Then
		objFS.CreateTextFile lnkPath, true
		Set objFolderItem = objFolder.ParseName(lnkName)
		If objFolderItem Is Nothing Then
			objFS.DeleteFile lnkPath
			Exit Function
		End If
	End If
	Set objShellLink = objFolderItem.GetLink					'设置快捷方式属性
	objShellLink.Path = exePath
	objShellLink.Arguments = ""
	objShellLink.WorkingDirectory = exeDir
	objShellLink.Hotkey = 0
	objShellLink.ShowCommand = 1
	objShellLink.Description = ""
	objShellLink.SetIconLocation exePath, 0
	objShellLink.Save()
	CreateLink = True
End Function
复制代码

yu2n

回复 9# adan1


    已测试 INF 无法创建带这些字符的快捷方式。