Set args = WScript.Arguments
linkname = args(0)
Set wshshell = CreateObject("WScript.Shell")
Set scut = wshshell.CreateShortcut(linkname)
Set fs = CreateObject("Scripting.FileSystemObject")
folder = fs.GetParentFolderName(scut.TargetPath)
If Left(folder,1) <> """" Then folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"
wshshell.Run("explorer " & folder)
linkname = args(0)
Set wshshell = CreateObject("WScript.Shell")
Set scut = wshshell.CreateShortcut(linkname)
Set fs = CreateObject("Scripting.FileSystemObject")
folder = fs.GetParentFolderName(scut.TargetPath)
If Left(folder,1) <> """" Then folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"
wshshell.Run("explorer " & folder)
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore





