Hoe maak ik een invulscherm die tekst in een txt kan plaatsen?

[Tijger81]

Wie kan mij helpen?
Ik heb nog nooit met vbs gewerkt, maar heb iets gevonden op internet, zie code.

Nu probeer ik een invulschermpje te maken waarop ik:
- een pad kan invullen: bijv: C:\music

Als er vervolgens op de invoerknop wordt gedrukt, gebeurt er:
- het pad (in dit geval: C:\music) wordt als text geplaatst in een bestaand txt bestand bijv: C:\test.txt.

Dit is wat ik heb gevonden/gemaakt, maar het is er nog lang niet. Want het plaatst wel tekst in het txt bestandje, maar er komt =result in te staan. En niet de tekst die ingevuld wordt in het invulschermpje. Ook krijg ik nog een foutmelding.

Option Explicit

 Dim Message, result
 Dim Title, Text1, Text2

 ' Define dialog box variables.
 Message = "Please enter a path" 
 Title = "WSH sample user input - by G. Born"
 Text1 = "User input canceled"
 Text2 = "You entered:" & vbCrLf

 ' Ready to use the InputBox function
 ' InputBox(prompt, title, default, xpos, ypos)
 ' prompt: The text shown in the dialog box
 ' title: The title of the dialog box
 ' default: Default value shown in the text box
 ' xpos/ypos: Upper left position of the dialog box 
 ' If a parameter is omitted, VBScript uses a default value.

 result = InputBox(Message, Title, "C:\", 100, 100)

 ' Evaluate the user input.
 If result = "" Then ' Canceled by the user
 WScript.Echo Text1
 Else 
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 ' The following line contains constants for the OpenTextFile
 ' format argument, which is not used in the code below.
 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 Dim fso, MyFile, FileName, TextLine

 Set fso = CreateObject("Scripting.FileSystemObject")

 ' Open the file for output.
 FileName = "c:\test.txt"

 Set MyFile = fso.OpenTextFile(FileName, ForWriting, True)

 ' Write to the file.
[B]MyFile.WriteLine "=result" (Hier zit het probleem ergens denk ik)[/B] 
MyFile.Close 

 ' Open the file for input.
 Set MyFile = fso.OpenTextFile(FileName, ForReading)

 ' Read from the file and display the results.
 Do While MyFile.AtEndOfStream <> True
 TextLine = MyFile.ReadLine
 Document.Write TextLine & "<br />"
 Loop
 MyFile.Close
 End If 

 '*** End

Wie kan mij op weg helpen?

 

[JoZ1]

dir=InputBox("Vul hier een directory in.", "Directory")
If dir <> "" Then
	Set objFSO=CreateObject("Scripting.FileSystemObject")
	'schrijft het bestand naar de directory waar het script ook staat
	Set objFile = objFSO.CreateTextFile("file.txt",True)
	objFile.Write dir
	objFile.Close
	x=MsgBox("De opdracht is succesvol uitgevoerd!",64,"Voltooid")
End If
wscript.quit

 

[Tijger81]

Dank je! Deze werkt wel en is ook een heel stuk korter dan mijn code.
Na wat stoeien was mijn code ook gelukt, door: MyFile.WriteLine result

 

[huijb]

@Tijger81 De klinkt als een nieuwe vraag. Open hier dan ook een nieuw topic voor. Dan blijft het in ieder geval overzichtelijk voor iedereen.