VBScript -> Bitte um Hilfe

[Marco]

Hallo, alle zusammen.

Ich befasse mich grad mit folgenden Thema:

1. Dynamische Linkgenerierung von Dateilinks (funktioniert)
2. Onclick Ereigniss -> Übergabe des Pfadnames an eine Funktion

Funktioniert nicht was kann ich ändern damit der Pfad korrekt übergeben wird

3. Befüllen eines Textareas mit dem Inhalt der Dateien

Wie kann ich in VBScript den Inhalt der Dateien an die Textarea übergeben (Befüllen der Textarea bei Onclickereignis)

'Ordner öffnen
Set fso = CreateObject("Scripting.FileSystemObject")
'Set folder = fso.GetFolder(strValue)
Set folder = fso.GetFolder("D:\test")

'Übergabe der Dateianzahl an Var X
Set Files = folder.Files
X = Files.Count

'Deklaration der Variablen
Dim Dateiname(99),Pfad(99),i
i=0

For Each File In folder.Files
'Einlesen der Dateinamen in ein Array
 Dateiname(i) = CStr(File.Name)
Pfad(i) = CStr(File)
 i=i+1
Next

For i = 0 To X-1

set liste = document.getElementById("Menu")

set li = document.createElement("li")
set a = document.createElement("a")
a.href="#"
a.onclick=Writelog(pfad(i)
set txt = document.createTextNode(pfad(i))
a.appendChild(txt)
li.appendChild(a)
liste.appendChild(li)

Next

function Writelog(Dateiname)

Dim Datei,doc,sText

Set Datei = CreateObject("Scripting.FileSystemObject")

Set File = Datei.OpenTextFile("D:\test\test.txt",1,-1)

Do While Not File.AtEndOfStream
sText = File.ReadAll
Loop

End function

</script>

</td>

<td class="main_2" colspan="5">

<form name="frm_logViewer">
<textarea name="output" rows="37" cols="120" ></textarea></form>

</td>
  </tr>

Danke Marco