[问题求助] 怎么获取vbs脚本文件所在的路径

grf9527

Sub bat
echo off & cls
echo create_shortcut 
start wscript -e:vbs "%~f0"
Exit Sub
End Sub

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Rem 在桌面创建一个电影快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\lingdong.lnk")
oShellLink.TargetPath = "D:\batrun\gf.exe" : '目标
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "Ctrl+Alt+e" : '快捷键
oShellLink.IconLocation = "D:\batrun\gf.exe, 0" : '图标
oShellLink.Description = "快捷方式" : '备注
oShellLink.WorkingDirectory = "D:\batrun\" : '起始位置
oShellLink.Save : '创建保存快捷方式
复制代码

请注意上面的绝对路径，在正常情况下，这个路径是变化的，后面的gf.exe是不变化的。

grf9527

大校的两个办法都很好.
而且我发现，如果不弹出窗口，把vbs改成bat也能运行.
我是搞c++的，没有办法了，才搞这么个东西，在win7下建立应用程序的快捷方式。呵呵。
跟大家学习了。
斑竹和大校都是搞什么语言的，感觉你们经验丰富的样子。

grf9527

版主的方式没有调通，那段语句确实可以实现显示的功能，可是无法集成到我的vbs的代码中，没有提示成，如果斑竹愿意，可否帮忙调通

Option Explicit

Sub bat
echo off & cls
echo create_shortcut 
start wscript -e:vbs "%~f0"
Exit Sub
End Sub


'Dim objFSO,strFile,dp1
'set 
objFSO = CreateObject("Scripting.FileSystemObject")
'set 
strFile = objFSO.GetFile(WScript.ScriptFullName)
'set 
dp1= strFile.ParentFolder


Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Rem 在桌面创建一个快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\lingdong.lnk")

Target = dp1 & "lingdong.exe"
oShellLink.TargetPath =Target
oShellLink.WindowStyle = 1 
oShellLink.Hotkey = "Ctrl+Alt+e" 
oShellLink.IconLocation = Target & ", 0" 
oShellLink.Description = "lingdong.exe的快捷方式" 
oShellLink.WorkingDirectory = dp1
oShellLink.Save 
复制代码