Spørgsmål omkring "ListView"

Det er ikek afprøvet.. men prøv med dette:

<script language="VBScript">
Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("C:\test.txt")
            While Not file.AtEndOfStream
                strTxt = strTxt & file.ReadLine
            Wend
        file.Close
        Set stream = Nothing
        Set file = Nothing
    Set fso = Nothing
   

    Set f = fs.GetFolder("c:\sti\")
   
    For Each fldr in f.files
          FileNames(i) = fldr.name
          FileType(i) = fldr.Type
          i = i + 1
    Next
   
    document.write("<select multiple=""true"">")
        For i = 0 To F.Files.Count
            If FileType(i) = "dll" Then
                document.write("<option>" & FileNames(i) & "</option>")
            End If
        Next
    document.write("</select>")
</script>

//>Rune

Thx 4 Poinz

//>Rune