Hallo zusammen,
ich hoffe einer von euch kann mir helfen.
Ich habe eine HTML Datei gebastelt. Dort rufe ich per link eine HTA Datei auf. In der HTA Datei soll eine Texteigabefenster und ein Knopf dargestellt werden. Der Eingegebene Text soll dann in eine Textdatei angehangen werden die im gleichen Verzeichnis liegt. Alles lokal ohne Server usw.
Hatte hier mal was versucht aber bekomme das nicht hin.
Kann mir vielleicht einer helfen???
<html>
<head>
<title>In Textdatei schreiben</title>
<hta:application
id="News anfügen"
applicationName="Hallo Welt"
border="thick"
borderStyle="raised"
caption="yes"
maximizeButton="yes"
minimizeButton="yes"
showInTaskBar="yes"
singleInstance="yes"
sysMenu="yes"
windowState="maximize"
>
</head>
<body>
<script language="VBScript">
<!--
Sub Uebermitteln_OnClick
Dim DasFormular
Dim fso
Dim oFile
Dim nj
Set DasFormular= Document.gueltigesFormular
If IsText(DasFormular.Text1.Value) Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("daten1.txt",2,True)
nj = DasFormular.Text1.Value.value
oFile.WriteLine "Informationen: " &VbCrLf& nj
oFile.close
End Sub
</script>
'-->
</script>
</body>
</html>
Würde mich echt riesig freuen wenn einer einen Ansatz hat was ich falsch mache.
Ganz lieben Gruß
Sandy