Option Explicit

Dim fso,objShell,strCmd
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.fileexists("c:\Test_mklink\cs2\cstrike.exe")) then fso.DeleteFile("c:\Test_mklink\cs2\cstrike.exe") 
Set objShell = CreateObject("Wscript.Shell")

strCmd = "mklink" 
strCmd = strCmd & " " 
strCmd = strCmd & Chr(34) & "c:\Test_mklink\cs2\cstrike.exe" & Chr(34) 
strCmd = strCmd & " " 
strCmd = strCmd & Chr(34) & "c:\Test_mklink\cs1\cstrike.exe" & Chr(34) 

'Wscript.echo strCmd
'InputBox "", "", strCmd 
objShell.Run strCmd
复制代码