[VB6]Text uit een textbox opslaan als .txt

[peponline]

Ik probeer een text die in een textbox staat op te slaan als een tekstbestand. Ik gebruik VB6.0
Ik heb al rondgezocht op Google en GoT maar ik kon niets vinden (Misschien is het te eenvoudig)

Wel heb ik dit gevonden:

code:

Private Sub Form_Load()
Open Text1.Text For Output As #1
    Print #1, "C:\%systemroot%\system32\******.txt"
    Close #1
End Sub

Maar dan krijg ik Runtime error 53: File not found
Ik denk ook dat dit bedoeld is om een bestand te openen en die vervolgens op te slaan...

Iemand een eenvoudigere oplossing voor dit probleem?

Alvast bedankt

[Virgil]

Alvorens het bestand te kunnen openen, moet het bestand er wel zijn. Je moet het dus aanmaken als het er dus niet is.

[peponline]

SeRRveR schreef op woensdag 08 december 2004 @ 23:25:
Alvorens het bestand te kunnen openen, moet het bestand er wel zijn. Je moet het dus aanmaken als het er dus niet is.

Dat snap ik, maar het bestand bestaat dus nog niet, dat wil ik juist aanmaken, met de text die in mijn textbox (text1) staat.
En ik heb echt geen idee hoe dat moet en ik kan het ook nergens (duidelijk) vinden.

[Woudloper]

Hmm, dit is toch vrij basic imho. Als je gaat [search=VB opslaan als tekst] moet je genoeg verwijzingen kunnen vinden. Wat dacht je van deze:

Visual Basic:

Dim FF as integer

FF = FreeFile
Open "C:\MijnPad\Mijnfile.txt" For output as #FF
Print #FF, Text1.Text
Close #FF

[Virgil]

peponline schreef op woensdag 08 december 2004 @ 23:29:
[...]


Dat snap ik, maar het bestand bestaat dus nog niet, dat wil ik juist aanmaken, met de text die in mijn textbox (text1) staat.
En ik heb echt geen idee hoe dat moet en ik kan het ook nergens (duidelijk) vinden.

google search

Een van de hits:

http://www.vbtutor.net/lesson14.html

[Verwijderd]

ok het is laat ik ga het kort houden, de code dient dus een beetje opgesplitst
*ik weet wel niet waarom je dit in een form_load event wil zetten en ook nog eens in de systemfolder wil schrijven,het lijkt me om problemen vragen, maar bon*
->herbekijken dus!!

Visual Basic:

private sub form_load
  with createobject("scripting.filesystemobject")
    with .createtextfile(environ("systemroot") & "\system32\mijntxttje.txt")
       .write text1.text
       .close
    end with
  end with
end sub

[peponline]

Heel erg bedankt hier was ik precies naar op zoek

Wat stom dat ik dat niet zelf heb gevonden/bedacht... Dat over dat FreeFile had ik wel gevonden maar het stond niet echt lekker duidelijk uitgelegd.
iig thanx guys