Output in textbestand is niet correct

[erpee]

De volgende sub maakt een bestand aan en schrijft de waarde erin die erin hoort.
Echter, Er worden aanhalingstekens " omheen gezet en da's nou net niet de bedoeling.

Wat moet ik in de code veranderen?

Sub Testoutput()
Dim sHostName As String
Dim strFile_Path As String

strFile_Path = Environ$("USERPROFILE") & "\Documents\abcd.txt"

Open strFile_Path For Output As #1
sHostName = Environ$("computername")

Write #1, "Testoutput_" & sHostName

Close #1
End Sub

 

[emields]

13 jaar lang al vraagt men naar een voorbeeldbestandje.

 

[edmoor]

Gebruik niet Write #1 maar Print #1.

 

[snb]

Zonder overbodige variabelen:

Sub M_snb()
  Createobject("scripting.filesystemobject").createtextfile(Environ("USERPROFILE") & "\Documents\abcd.txt").write "Testoutput_" & sHostName
End Sub

 

[edmoor]

Ook zonder variabelen maar met de mogelijkheid meerdere regels in het bestand te schrijven:

Sub Testoutput()
    Open Environ("USERPROFILE") & "\Documents\abcd.txt" For Output As #1
    Print #1, "Gebruiker: " & Environ("Username")
    Print #1, "Computer : " & Environ("Computername")
    Print #1, "Domein   : " & Environ("Userdomain")
    Close #1
End Sub

 

[JEC.]

Kan ook met .writeline van het fso

 

[snb]

Een onbeperkt aantal regels in fso met

 .write Join(array("aa";"bb";"cc"),vbcrlf)

 

[erpee]

Gebruik niet Write #1 maar Print #1.

Werkt perfect Thanks