hi
ja ich schon wieder aber ich habe eine großes problem wo bei ihr mir vielleicht so gar helfen könnt wenn ihr nciht vbscript experten seit
und zwar
versuche ich ein array rückwärts ausgeben zu lassen hier ist mein quelltext würde mich über hilfe freuen:
<html>
<head>
<title>
Verzeichnis auslesen
</title>
<HTA:APPLICATION ID="TheApp"
APPLICATIONNAME="Hello"
/>
<script LANGUAGE=VBS>
option explicit
dim myshell, FileSyst, Datei, DateiObject, VerzListe, Dateiname, Verz, i, j
dim Ausgabe(100)
const Startverzeichnis="q:\Daniel\DB-Script"
Sub BtnMsg_OnClick
Set myshell = CreateObject("WScript.Shell")
Set FileSyst = CreateObject("Scripting.Filesystemobject")
Set Verz =FileSyst.GetFolder(Startverzeichnis)
set VerzListe=Verz.SubFolders
document.write("<form>")
document.write("<select>")
For Each DateiObject in VerzListe
i=i+1
Ausgabe(i)=DateiObject.Name
'Ausgabe=Ausgabe & DateiObject.Type & "-" & DateiObject.Name
Next
document.write(i)
for i=i to 0
document.write("<option>")
document.write(Ausgabe(i))
document.write("</option>")
next
document.write("</select>")
document.write("</form>")
'Ausgabe="Inhalt von: " & Verz & chr(13) & Ausgabe
'MsgBox Ausgabe
End Sub
</script>
<head>
<body>
<form>
<input type="Button" name="BtnMsg" value="Anzeigen">
</form>
</body>
<HTML>
Puejo Gast |
