Hvordan opretter man en txt fil?

fandt selv ud af det

Lav et tekstfelt, "Text1", og en knap, "cmdWrite".
Husk at inkludere reference til Microsoft Scripting Runtime.

Den overskriver hele filen hver gang.


Private Sub cmdWrite_Click()

    'declare and instantiate
    Dim filesys As Scripting.FileSystemObject
    Dim testfile As Scripting.TextStream
    Set filesys = New Scripting.FileSystemObject
    Set testfile = filesys.CreateTextFile("c:\somefile.txt", True)
   
    'write to textfile
    testfile.Write Text1.Text
    testfile.Close

End Sub

doh!