HTA Script mit Dynamischer ComboBox

[bieri87]

Hallöchen zusammen,

ich hoffe es gibt einige die sich ein bißchen mit HTA auskennen, ist ja nun noch nicht all zu bekannt.

Und zwar ist mein Ziel eine Auswahlbox zu füllen während der Laufzeit des Programms.

Im Detail soll der Inhalt eines Ordners, die dort vorhandenen Dateien in die Combobox gefüllt werden so das anschließend eine ausgewählt werden kann um weitere auswertungen damit durchzuführen.

Mein erstes Prob:

Das selektieren aller Dateien in einem Verzeichnis abhängig von einer Dateiendung.

Eine Datei krieg ich angezeigt ... nur brauch ich alle.

Mein Ansatz bisher:

Function GetSubFolders(path)

       Set objShell = CreateObject("Wscript.Shell")
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	Set FO = FSO.GetFolder(path) 
	Set FU = FO.Files
	On Error Resume Next 
	For Each F In FU
	DataArea.Innerhtml = f.Name
	
	Next
End Function

Das ganze gebe ich erstma in einem Span Tag aus mit der ID DataArea. Ziel ist also alle Dateien in einem Ordner mit der Dateiendung xls z.b.

Zweites Prob:

Das füllen der Auswahlbox:

//html Seitig die Auswahlbox angelegt:

<SELECT size="15" name="test" class="OptionsGroup1" multiple>
       <SPAN id="Options"></SPAN>
</SELECT>

//VB Seitig versuch ich &#252;ber die ID die Daten da rein zu kriegen:

Options.InnerHTML = "<option value='test'>" & f.Name & "</option>"

Ich hoffe mir kann jemand auf die Sprünge helfen

[bieri87]

ohaa .. ok das mit der dynamischen ComboBox hat sich glaube erledigt ^^

war wohl gestern Abend doch etwas fertig mit der Welt ^^

ich muss natürlich auch den "Option" Tag nehmen und kein "Span" -.-'

//vb
Options.InnerHTML = "<option value='test'>" & f.Name & "</option>"

//html
<SELECT size="15" name="test" class="OptionsGroup1" multiple>
       <OPTION id="Options"></SPAN>
</SELECT>

Jetzt bleibt nur noch das Prob, alle Dateien in einem Ordner, abhänig von einem Datentyp ....

[VB-Coder]

f.name gibt ja deinen Dateinamen zurück, wenn ich jetzt nicht gerade nen Brett vorm Kopf habe.

In dem Fall könntest du ja mit right(f.name,3) die letzten 3 Zeichen (also die Endung) des Dateinamens auslesen.