不能中文路径的程序启动器 - 无忧启动论坛

On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
scriptPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
availableDrive = ""
For i = 68 To 90  ' 从D到Z的ASCII码
driveLetter = Chr(i) & ":"
If Not objFSO.DriveExists(driveLetter) Then
      availableDrive = driveLetter
      Exit For
End If
Next
If availableDrive = "" Then
MsgBox "没有找到可用的盘符!", vbExclamation
WScript.Quit
End If
objShell.Run "subst " & availableDrive & " """ & scriptPath & """", 0, True
WScript.Sleep 3000
objShell.Run """" & availableDrive & "\cheatengine-x86_64-SSE4-AVX2.exe""", 1, True
objShell.Run "subst " & availableDrive & " /d", 0, True
Set objShell = Nothing
Set objFSO = Nothing