vraag over stukje code : DRINGEND

[be062603]

Hey

Ik heb een txt file staan . Nu moet ik dus die inhoud van die txt file in een tekstvlak krijgen ( vb(a))

Ik had hiervoor volgende code geschreven

pad = Me.txtpad & "\*.*"
bestand = Dir(pad)
Do While Len(bestand) > 0
Open txtpad & "\" & bestand For Input As #1
Do While Not EOF(1)
Line Input #1, x
inhoud = inhoud & x & chr(10) & chr(13)
Loop
Close #1

Nu werkt dat wel ... maar voor tekens zoals éüâ geeft hij heel andere waarden weer , voorbeeld ²☼@ en zo van die dingen . Hoe kan ik dit voorkomen ?

Alvast Bedankt

[deathz0rz]

misschien handig om er bij te vermelden dat het om visual basic gaat

[be062603]

deathz0rz schreef op 26-11-2003 @ 19:21:
misschien handig om er bij te vermelden dat het om visual basic gaat

Kan jij lezen ... het staat er hoor ... tussen haakjes

[Screaming Slave]

in de topictitel bedoelt ie

zodat mensen die VB snappen het eerder bekijken, en mensen die geen VB snappen geen tijd verspillen.

[deathz0rz]

be062603 schreef op 26-11-2003 @ 19:26:
Kan jij lezen

ja

be062603 schreef op 26-11-2003 @ 19:26:
het staat er hoor ... tussen haakjes

nee

[be062603]

Screaming Slave schreef op 26-11-2003 @ 19:28:
in de topictitel bedoelt ie

zodat mensen die VB snappen het eerder bekijken, en mensen die geen VB snappen geen tijd verspillen.

Voila , nu content

[deathz0rz]

be062603 schreef op 26-11-2003 @ 19:31:
Voila , nu content

eeh.. nee?

[be062603]

deathz0rz schreef op 26-11-2003 @ 19:42:
eeh.. nee?

zucht

Ik het topic wijziging gedaan ,maar blijkbaar past hij het niet aan... Jammer dan maar