VB用SHELL函数运行游戏的EXE文件时为什么会出现找不到PAK文件

'本代码要点：利用快捷方式运行游戏，由于指明了文件所在目录，从而避免了出错的情况发生。

'====代码部分====

Dim wshshell, oShellLink

Dim i As Integer, ExeFile As String, LnkFile As String

Set wshshell = CreateObject("WScript.Shell")'创建脚本对象亏衫

ExeFile = "e:\2.exe" '你可以在此修改游戏的实际名称

LnkFile = "c:\a.lnk" '你可以在此修改临时快捷方式的文件名

'下面代码请不要修改

Set oShellLink = wshshell.CreateShortcut(LnkFile)'利用脚本对象建立一个临时快捷方式文件

oShellLink.TargetPath = ExeFile '物空蚂文件名

oShellLink.WindowStyle = 1

i = InStrRev(ExeFile, "\")

oShellLink.WorkingDirectory = Left(ExeFile, i - 1) '罩埋文件所在目录

oShellLink.Save'保存快捷方式文件

wshshell.run LnkFile '运行此临时文件

Kill LnkFile '运行后删除此临时文件

Set oShellLink = Nothing '释放内存

Set wshshell = Nothing'释放内存

Pak文态冲悔件是以pak结尾的文件是pakQuake系列游戏所帆正采用的一种特殊压缩包格式，由Quake游戏公司开发，一般用户无法打开，Pak文件就是将多个文件打包为一个单独文件，在这个文件中保存着多个文件的数据，还有一些描述文件结构的数据。打开pak格式文件的方法：用一些专业压缩软件打开，可以用WinRAR，WinZip打开，但仅限于pak文件中没有加密判逗的文件。