Como o Vbscript pode informar o diretorio atual ?

[Alex_poa]

Olá pessoal peço a ajuda de todos ... Preciso de um programinha simples (script) em VBscript que informe em uma msgbox o diretorio atual . Pesquisando na internet achei dois exemplos que não funcionaram :

Dim db

Set db = CurrentDB

msgbox db

Dim db

db = App.Patch

msgbox db

Falta algo ? são muito simples ?

Ao executar dá mensagem de erro .

Salvei pelo notepad com a extensão .vbs

Quem puder me ajudar desde já agradeço .

Abraço a todos !

[Jonathan Queiroz]

Tente assim:

dim diretorio
diretorio=App.Path
msgbox diretorio

[Alex_poa]

Ola ! obrigado por me ajudar , mas não funcionou .

Dá a seguinte mensagem de erro :

ERRO: 800A01A8

Objeto necessario :'App'

esse erro tambem tava dando antes

Desde já agradeço de coração

Abraços

[kuroi]

não existe App.Path em vbscript (já q o script nem é uma aplicacao), mas encontrei esse codigo por ai:

dim diretorio
diretorio = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))
msgbox diretorio[/code]

[Jonathan Queiroz]

Não tinha visto que era em VBS

Mas se você quiser descobrir o diretório apenas para executar arquivos na pasta atual não é necessário.

Como o arquivo está no mesmo diretório que o script você pode fazer assim:

set x=Wscript.CreateObject("Wscript.Shell")
x.Run "arquivo.exe"