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

@echo %~dp0
::显示文件的路径
@echo %~nx0
::显示文件名
@echo %~f0 
::显示本身路径及文件名
pause
复制代码

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing
' 正儿八经的方案，参考 http://blog.csdn.net/buyicn/article/details/5641106
复制代码

Option Explicit
Dim f,strPath
f = WScript.ScriptFullName
MsgBox Left(f,Len(f) - Len(WScript.ScriptName))
' 比较简洁的方案
复制代码

f0 = WScript.ScriptFullName
dp0 =  Mid(f0, 1, InStrRev(f0, "\"))
Target = dp0 & "gf.exe"
复制代码

f0 = WScript.ScriptFullName
Set fso = CreateObject("Scripting.FileSystemObject")
dp0 = fso.GetAbsolutePathName(f0 & "\..")
Target = dp0 & "\gf.exe"
复制代码

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 
复制代码

f = WScript.ScriptFullName
strPath = Left(f,Len(f) - Len(WScript.ScriptName))
复制代码

/*
 *  Author: Demon
 *  Date: 2012/6/25
 *  Website: http://demon.tw
 *  Description: create shorcut using C++, no error handling for simplicity
 */
#include <Windows.h>
#include <shlobj.h>
#include <Shlwapi.h>
#pragma comment(lib, "Shlwapi.lib")

int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd )
{
    IShellLink *pShellLink;
    IPersistFile *pPersistFile;
    WCHAR TargetPath[MAX_PATH], WorkingDirectory[MAX_PATH], Desktop[MAX_PATH];
    LPITEMIDLIST p;

    CoInitialize(NULL);
    CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&pShellLink);
    
    GetModuleFileName(NULL, TargetPath, MAX_PATH);
    PathRemoveFileSpec(TargetPath);
    lstrcpyn(WorkingDirectory, TargetPath, MAX_PATH);
    PathAppend(TargetPath, L"gf.exe");

    pShellLink->SetPath(TargetPath);
    pShellLink->SetShowCmd(SW_SHOWNORMAL);
    pShellLink->SetHotkey(MAKEWORD(0x45, HOTKEYF_CONTROL | HOTKEYF_ALT));
    pShellLink->SetIconLocation(TargetPath, 0);
    pShellLink->SetDescription(L"快捷方式");
    pShellLink->SetWorkingDirectory(WorkingDirectory);

    pShellLink->QueryInterface(IID_IPersistFile, (void **)&pPersistFile);
    SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &p);
    SHGetPathFromIDList(p, Desktop);
    PathAppend(Desktop, L"lingdong.lnk");
    pPersistFile->Save(Desktop, TRUE);

    pShellLink->Release();
    pPersistFile->Release();
    CoUninitialize();
    return 0;
}
复制代码