nicht angemeldet
Hallo!
Ich habe folgendes Problem in VBScript:
Ich will aus einem relativen Pfad einen absoluten Pfad machen!
Ich habe es mit der GetFile-Methode versucht.
Habe aber immer einen Fehler erhalten: "Datei nicht gefunden"
Vielleicht wisst ihr ja mehr!?
Beispiel:
Wir befinden uns in C:\Programme\Neuer Ordner\Test.
Die Datei von der ich den absoluten Pfad haben will heist "Test1.dyn".
Die HTML-Datei, in der ich das VBScript einbinden will, liegt im selben Verzeichniss.
Demnach müsste der relative Pfad "Test1.dyn" heißen. Oder nicht?
Ich hoffe mir kann jemand weiterhelfen!
Danke!!!!
Beispielcode:
Anmerkung: Den relativen Pafd gebe ich in der Funktion Dyn(Bild) an (Siehe onClick-Ereigniss).
<html>
<head>
<title>Test</title>
<meta name="author" content="">
<meta name="generator" content="Ulli Meybohms HTML EDITOR">
<script language="VBScript" type="text/vbscript">
<!--
FUNCTION Dyn(Bild)
On Error Resume Next
Dim wsh, fso, TextStream, Dynasys, Temp, file
Set wsh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Temp = fso.GetSpecialFolder(2)
IF fso.FileExists(Temp & Chr(92) & "Pfad.txt") = FALSE THEN
alert("Dynasys Pfad nicht koreckt, oder eingegeben!!")
Exit Function
END IF
Set TextStream = fso.OpenTextFile(Temp & Chr(92) & "Pfad.txt")
Dynasys = TextStream.ReadAll
TextStream.Close
wsh.Run Chr(34) & Dynasys & Chr(34) & " " & Bild, 3, True
END FUNCTION
FUNCTION DynPfad()
Dim Dynasys, fso, file, Temp
file = window.document.Formular.Dyn.value
Set fso = CreateObject("Scripting.FileSystemObject")
Set Temp = fso.GetSpecialFolder(2)
Set Dynasys = Temp.CreateTextFile("Pfad.txt")
Dynasys.Write(file)
END FUNCTION
//-->
</script>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000" onLoad="Dyn('Aufg1a.dyn')">
<form name="Formular">
<input name="Dyn" type="File">
<input type="Button" value="Speichern" onClick="DynPfad()">
</form>
</body>
</html>