obtener el directorio actual en vbscript

directory

Question

Estoy intentando obtener el directorio actual y usarlo para ejecutar una aplicación sin importar dónde se coloque el archivo y cómo se cambie la ruta

 dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
dim Directory
Directory = CurrentDirectory/attribute.exe
Set WinScriptHost = CreateObject("WScript.Shell")
WinScriptHost.Run Chr(34) & "Directory" & Chr(34), 0
Set WinScriptHost = Nothing

¿Cómo configuro este código para que haga lo que quiero que haga correctamente? ¡Gracias por adelantado!

Answer 1

Puede usar WScript.ScriptFullName que devolverá la ruta completa del script de ejecución .

Luego puede usar la manipulación de cadenas ( ejemplo de jscript ):

scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1)

O obtenga ayuda de FileSystemObject, ( ejemplo de vbscript ):

scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

Answer 2

Puede utilizar la propiedad CurrentDirectory .

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
WshShell.Run strCurDir & "/attribute.exe", 0
Set WshShell = Nothing

Answer 3

Su problema no es obtener el directorio ( fso.GetAbsolutePathName(".") Resuelve el directorio de trabajo actual sin problemas). Incluso si quisiera el directorio de secuencias de comandos en lugar del directorio de trabajo actual, podría determinarlo fácilmente como lo describió Jakob Sternberg en su respuesta .

Lo que no funciona en su código es construir una ruta desde el directorio y su ejecutable. Esta es una sintaxis no válida:

Directory = CurrentDirectory/attribute.exe

Si desea crear una ruta a partir de una variable y un nombre de archivo, el nombre del archivo debe especificarse como una cadena (o una variable que contiene una cadena) y concatenar con la variable de directorio de variables:

Directory = CurrentDirectory & "/attribute.exe"

o (mejor) construyes la ruta usando el método BuildPath :

Directory = fso.BuildPath(CurrentDirectory, "attribute.exe")

Answer 4

Tu linea

Directory = CurrentDirectory/attribute.exe

no coincide con ninguna característica que he encontrado en un manual de instrucciones vbscript. Lo siguiente funciona para mí, aunque no estoy seguro de qué / dónde espera que "attribute.exe" resida.

dim fso
dim curDir
dim WinScriptHost
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
set fso = nothing
Set WinScriptHost = CreateObject("WScript.Shell")
WinScriptHost.Run curDir & "/testme.bat", 1
set WinScriptHost = nothing

Answer 5

sencillo:

scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"")

Answer 6

''-----Implementation of VB6 App object in VBScript-----
Class clsApplication
Property Get Path()
Dim sTmp
If IsObject(Server) Then
''Classic ASP
Path = Server.MapPath("../")
ElseIf IsObject(WScript) Then
''Windows Scripting Host
Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName) - 2)
ElseIf IsObject(window) Then
''Internet Explorer HTML Application (HTA)
sTmp = Replace( Replace(Unescape(window.location), "file:///", "") ,"/", "/")
Path = Left(sTmp, InstrRev( sTmp , "/") - 1)
End If
End Property
End Class
Dim App : Set App = New clsApplication ''use as App.Path