Как из VBScript определить его собственное местоположение?

Question

Есть скрипт vbs, как "он" может узнать путь к самому себе?

Спасибо всем:) – glarionenko Aug 30 '12 at 09:25 — glarionenko, Aug 30 '12 at 09:25

score 3 · Answer 1 · edited Aug 30 '12 at 06:36

3

WScript.Echo WScript.ScriptFullName - возвращает полный путь к скрипту.
Wscript.Echo WScript.ScriptName - возвращает название выполненного скрипта.

edited Aug 30 '12 at 06:36

Deleted

371

answered Aug 30 '12 at 05:09

evlanoff

622

Nicolas Chabanovsky · Accepted Answer · 2012-08-29T20:00:10.927

2

Попробуйте так:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile(Wscript.ScriptFullName)
path = FSO.GetParentFolderName(F)

edited Aug 29 '12 at 20:00

answered Aug 29 '12 at 19:59

Nicolas Chabanovsky

51,426
87
267
507

Если несложно, скажите пожалуйста, а свое имя(т.е. просто имя файла) надо отсюда вытаскивать или тоже есть функция? – glarionenko Aug 29 '12 at 20:53

score 1 · Answer 3 · answered Aug 29 '12 at 20:00

On Error Resume Next

Set objUser = GetObject _ 
    ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

Wscript.Echo "Profile Path: " & objUser.ProfilePath 
Wscript.Echo "Script Path: " & objUser.ScriptPath 
Wscript.Echo "Home Directory: " & objUser.HomeDirectory 
Wscript.Echo "Home Drive: " & objUser.HomeDrive

score 0 · Answer 4 · answered Apr 18 '18 at 15:24

Сохраняет местоположение в файл
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile(Wscript.ScriptFullName)
path = FSO.GetParentFolderName(F)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("dir.txt", True)
tf.WriteLine path

Как из VBScript определить его собственное местоположение?

4 Answers4