[HaBo]

erik SN · 14.10.11, 15:11

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

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(D

oc~\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 · 14.10.11, 17:58

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

Code:

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

Anzeige

- Anzeige -

Brabax · 14.10.11, 21:18

Hi!

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

lG

Forks · 14.10.11, 22:54

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 · 16.10.11, 23:45

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 · 20.10.11, 08:34

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 · 21.11.11, 16:32

Hab eine lösung gefunden mit hilfe des DOM

Code:

                    sCurPath = document.location

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

Anzeige

- Anzeige -

14.10.11, 15:11	#1 (permalink)
erik SN Registriert seit: 02.06.05 Likes: 2	VBScript Aktuelles Verzeichniss abfragen. Anzeige 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 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

14.10.11, 17:58	#2 (permalink)
Forks Registriert seit: 22.08.11 Likes: 26	Ich kenne mich mit VBScript nicht aus. Könnte es so funktionieren? Code: Set objFSO = CreateObject(“Scripting.FileSystemObject”) Set objShell = CreateObject(“WScript.Shell”) sCurPath = oFso.GetParentFolderName(WScript.ScriptFullName) msgbox(sCurPath) __________________ Quis custodiet ipsos custodes?

14.10.11, 21:18	#3 (permalink)
Brabax Member of Honour Registriert seit: 04.10.01 Likes: 42	Hi! Das wird aber nicht auf nem Webserver funktionieren, da das VB lokal auf dem User-Rechner ausgeführt wird. lG __________________ << Wir leben bereits im morgigen Gestern, doch vom gestrigen Morgen sind wir noch weit entfernt. >> << Träume sind Schäume. Es liegt an dir ob du sie lebst oder ein Schaumschläger bist! >> << Erst wenn man beginnt zu implizieren, wird man merken, dass einem sowieso keiner richtig zuhört. >>

14.10.11, 22:54	#4 (permalink)
Forks Registriert seit: 22.08.11 Likes: 26	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? __________________ Quis custodiet ipsos custodes?

21.11.11, 16:32	#7 (permalink)
erik SN Themenstarter Registriert seit: 02.06.05 Likes: 2	Hab eine lösung gefunden mit hilfe des DOM Code: sCurPath = document.location sCurPath = Replace(sCurPath, "index.html", "") sCurPath = Replace(sCurPath, "%20", " ") sCurPath = Replace(sCurPath, "file:///", "")

16.10.11, 23:45	#5 (permalink)
erik SN Themenstarter Registriert seit: 02.06.05 Likes: 2	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.

20.10.11, 08:34	#6 (permalink)
Vyger Registriert seit: 04.12.03 Likes: 11	Wenn du ohnehin nur lokal arbeitest und eventuell nur eine Oberfläche für Dein VBscript code brauchst schau Dich mal nach HTA um.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Aktuelles Hintergrundbild	Valentin	Windows	11	15.02.06 10:46
IP Adresse bekannt => Verzeichniss auflisten	vangelis	Internet Allgemein	2	23.12.05 16:29
Gutes ( aktuelles ) Boxspiel für PC	sartre	Games	3	04.12.05 22:40
Zugriff aufs Verzeichniss plötzlich weg	Tec	Windows	2	21.08.04 15:44
aktuelles Dolbyformat	JasonV	Music- & Filmbox	3	30.04.03 09:45

[HaBo]

VBScript Aktuelles Verzeichniss abfragen.