VBS: (Script-)Pfad der HTML-Datei ermitteln

Revenant · Apr 29, 2006

Hallo,

ich benutze VBS-Code in einer HTML-Datei. Durch Formulare o.ä. lese ich Daten ein, die in einer Datei gespeichert werden sollen. Diese Datei soll im selben Verzeichnis gespeichert werden wie die HTML-Datei. Dazu muss ich also den Pfad der HTML-Datei ermitteln. In einer normalen .vbs Datei funktioniert das so:

Code:

'FSO anlegen
	    SET fso = CreateObject("Scripting.FileSystemObject")

        'Der Scriptpfad, in dem auch die text.txt liegt.
        Pfad = fso.GetParentFolderName(WScript.ScriptFullName)

Wenn ich das jedoch in die HTML Datei übertrage bekomme ich einen Fehler:

Zeile: 27
Zeichen: 9
Fehler: Variable nicht definiert: 'WScript'
Code: 0

Sehr verwirrend, da es in einer normalen vbs-Datei ja problemlos funktioniert.

Hier der Code der HTML-Datei:

Code:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<head>
    <title>
       Overmind
    </title>
	<link rel="stylesheet" type="text/css" href="overmind.css">
</head>


<script language="VBScript">
OPTION EXPLICIT
DIM Pfad, fso, maxminuten, datei


SUB button1_onClick
	On Error Resume Next
	cint(Eingabe1.value)
	IF (Err.Number <> 13) THEN
		maxminuten = cint (Eingabe1.value)

	     On Error GoTo 0

        'FSO anlegen
	    SET fso = CreateObject("Scripting.FileSystemObject")

        'Der Scriptpfad, in dem auch die text.txt liegt.
        Pfad = fso.GetParentFolderName(WScript.ScriptFullName)

        SET Datei = fso.CreateTextFile(Pfad&"/config.txt",1)
        datei.writeline maxminuten
        datei.close

        SET Datei = fso.OpenTextFile(Pfad&"\index.html",8)
        datei.writeline "<table border=""1"" cellspacing=""5"" style=""width:600px; text-align:center""><tr><td><b>KONFIGURATION:</b> maximale Betriebszeit: " & maxminuten & " Minuten</td></tr></table>"
        datei.close
        msgbox "Maxminuten: "&maxminuten
        msgbox "Pfad: "&Pfad

	ELSE
		msgbox "In diesem Eingabefeld sind nur ganze Zahlen erlaubt",0,"WARNUNG: Falsche Eingabe!"
	END IF
END SUB

</script>


<body style="font-family:Verdana; font-size:14px; background-color:#808080;">


<p align="center" style="font-family:Verdana; font-size:14px;">
<br>
<br>
<b>Konfiguration</b><br>
<br>
<br>
Geben Sie die maximale Loginzeit des Benutzers ein (in Minuten):<br>
<br>
<input type="text" name="Eingabe1" size="5" value="60" maxlength="5">
<br><br><br><br>
<input type="button" name="button1" value="Anwenden">
</p>


</body>

Das Script muss mit vbs arbeiten (Vorgabe von Lehrer) und somit auch lokal ausführbar sein.

Wie komme ich jetzt an den Pfad des Scripts?

mfG

EDIT: Lösung:

Code:

FUNCTION GetAppDir()
 GetAppDir = Mid(document.url, 8)
 GetAppDir = Left(GetAppDir,InStrRev(GetAppDir,"\"))
END FUNCTION

VBS: (Script-)Pfad der HTML-Datei ermitteln

Revenant

Guest