VBScript Aktuelles Verzeichniss abfragen.

[erik SN]

Hallo zusammen,

ich hab folgendes Problem, ich hab in einer HTML Seite ein VBScript eingefügt in welchem ich unteranderem den Aktuellen Pfad brauche in dem die HTML Seite liegt.
Hierzu folgender Code

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.shell")
sCurPath = objShell.CurrentDirectory
msgbox(sCurPath)

Leider gibt er mir immer den gleichen Pfad aus(Doc~\User\Desktop).
Ich habe nun auch schon einige andere möglichkeiten Probiert leider alle mit dem selben ergebnis.
OS: WinXP, IExplorer 6

Vielleicht kann mir ja jemand helfen, Vielen dank schon mal im vorraus.

Greetz erik SN

 

[Forks]

Ich kenne mich mit VBScript nicht aus. Könnte es so funktionieren?

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objShell = CreateObject(“WScript.Shell”)
sCurPath = oFso.GetParentFolderName(WScript.ScriptFullName)
msgbox(sCurPath)

 

[Brabax]

Hi!

Das wird aber nicht auf nem Webserver funktionieren, da das VB lokal auf dem User-Rechner ausgeführt wird.

lG

 

[Forks]

Da erik als OS "Win Xp" angegeben hat, ging ich davon aus dass er an was lokalem bastelt. Wenn es auf nem Server läuft, ist das doch auch Code, den der Besucher nicht sieht, oder? (ich kenne mich da ja nicht aus). Wenn, dann könnte man den Dateipfad ja einfach hardcoden als String?

 

[erik SN]

Vielen dank schonmal für die antworten,

Das ganze soll nür lokal laufen, also macht das nix.
Allerdings hab ich die Sache mit 'GetParentFolderName' glaub ich auch schon probiert, was leider nicht funktioniert hat.
Ich werd es morgen nochmal testen.

 

[Vyger]

Wenn du ohnehin nur lokal arbeitest und eventuell nur eine Oberfläche für Dein VBscript code brauchst schau Dich mal nach HTA um.

 

[erik SN]

Hab eine lösung gefunden mit hilfe des DOM :thumb_up:

                    sCurPath = document.location

                    sCurPath = Replace(sCurPath, "index.html", "")
                    sCurPath = Replace(sCurPath, "%20", " ")
                    sCurPath = Replace(sCurPath, "file:///", "")