VisualBasic Kompletter Dateipfad in einer Sub

[georg_willi]

Hallo,
ich versuche gerade in einer Sub herauszufinden, in welchem Verzeichnis sich das betreffende VBscript befindet.
Das ist eigentlich ziemlich einfach, zumal folgendes wunderbar klappt:

Set objFSO = CreateObject("Scripting.FileSystemObject") ' nicht erforderlich
Set objShell = CreateObject("WScript.Shell") ' nicht erforderlich

Dim dateiname 
dateiname = dateiname & WScript.ScriptFullName
MsgBox dateiname

Steht das allerdings zwischen Sub und Sub End passiert gar nichts. Beim Debuggen wird bei der Zuweisung des Dateinamens ein Objekt gefordert (Laufzeitfehler 424). Mir ist gerade nur wichtig, dass ich einer Stringvariablen den kompletten Dateipfad, in dem sich das Script befindet, zuweisen kann.

Danke im Voraus!

 

[Raknar]

Moinsen,

ich äußere mal zwei Vermutungen:

- Du bist eher ein Freund von VB.Net
- Du hast den Call-Befehl vergessen, dann klappt's auch mit den Subs

Ansonsten empfehle ich dir mal 3 Seiten:
http://www.vb-fun.de/vb/index.htm
http://scriptbox.boris-toll.at/
http://dieseyer.de/

 

[georg_willi]

Vielen Dank für alles
Hat jetzt endlich geklappt. Und ja, ich bin eher in .net zu Hause. Aber zur Zeit muss ich einen Kollegen ersetzen, der fast nur VBS, VBA und VB macht. Das ständig auseinander zuhalten, macht mich noch irre