[问题求助] 调用的对话框选择的目录变量错误

winsfly

红色部分错误
先弹出一个对话框要用户选择一个目录传递给变量objPath,然后在复制文件到此选择的目录变量下面的cstrike目录下就出问题了，提示objPath\cstrike是无效的调用或参数
然后在最后要运行objPath下面的cstrike.exe时又提示objPath错误
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
  
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
  
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _  
(WINDOW_HANDLE, "请选择CS1.5的目录:", OPTIONS, strPath)
  
If objFolder Is Nothing Then
Wscript.Quit
End If
  
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
s = MsgBox("使用xiao*sa优化脚本请点击是,不使用脚本或者使用别的脚本点击否", vbOKCancel)
If s = 1 Then set a=createobject("scripting.filesystemobject"):a.copyfile "*.*","objPath\cstrike"

Dim EnableNCPAProgram
set EnableNCPAProgram=Wscript.CreateObject("wscript.shell")
RegPath="HKCU\Software\Valve\CounterStrike\Settings\"
Key_Name1="EngineType"
Key_Name2="EngineModeW"
Key_Name3="EngineModeH"
Key_Name4="EngineMode"
Key_Name5="key"
Key_Date1="2"
Key_Date2="1024"
Key_Date3="768"
Key_Date4="7"
Key_Date5="3333333333333"
Type_Name1="REG_DWORD"
Type_Name2="REG_SZ"
EnableNCPAProgram.RegWrite RegPath&Key_Name1,Key_date1,Type_Name1
EnableNCPAProgram.RegWrite RegPath&Key_Name2,Key_date2,Type_Name1
EnableNCPAProgram.RegWrite RegPath&Key_Name3,Key_date3,Type_Name1
EnableNCPAProgram.RegWrite RegPath&Key_Name4,Key_date4,Type_Name1
EnableNCPAProgram.RegWrite RegPath&Key_Name5,Key_date5,Type_Name2

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "objPath\cstrike.exe -noipx -console -game cstrike -numericping +connect 121.12.117.9:21111 +password 0"

winsfly

回复 2# yu2n


    特别感谢,已解决,以上代码是留着毕业十周年的十一假期跟大学同学们激情的节目  CS1.5