Supportnet / Forum / Skripte(PHP,ASP,Perl...)
getFile
Frage
Hallo!
Ich habe folgendes Problem mit dieser Zeile: azid=Sys.GetAbsolutePathName(Sys.GetFile("Azid\azid.exe"))
Ich bekomme immer eine Fehlermeldung:"Konnte Datei nicht finden"
Kann mir jemand weiterhelfen?
Das Script liegt unten bei.
FUNCTION Azid_Gui()
Dim Sys, BatFile, Formular, azid, ac3, wav, a, cnormal, wsh, open, tordner
Set Formular=Azidgui
ac3=formular.ac3.value
wav=formular.wav.value
Set Sys=CreateObject("Scripting.FileSystemObject")
Const TempOrdner=2
Set tordner=Sys.GetSpecialFolder(TempOrdner)
Set BatFile=tordner.CreateTextFile("azid.bat")
Set open=Sys.GetFile(tordner+Chr(92)+"azid.bat")
azid=Sys.GetAbsolutePathName(Sys.GetFile("Azid\azid.exe"))
BatFile.Write(Chr(34)+azid+Chr(34)+Chr(32)+Chr(34)+ac3+Chr(34))
IF formular.a.checked = TRUE THEN BatFile.Write(" "+"-a")
IF formular.cnormal.checked = TRUE THEN BatFile.Write(" "+"-cnormal")
BatFile.Write(" "+Chr(34)+wav+Chr(34))
BatFile.Close
Set wsh=CreateObject("WScript.Shell")
wsh.Run open.path, 3, True
open.Delete
END FUNCTION
Antwort 1 von struppi
Hallo,
Das script findet die azid.exe nur wenn es im selben Verzeichnis liegt, in dem sich der Ordner Azid befindet.
gruß struppi
Das script findet die azid.exe nur wenn es im selben Verzeichnis liegt, in dem sich der Ordner Azid befindet.
gruß struppi

