PDA

Visualizza versione completa : Aprire un file.Txt in VB 6


andreakpr
15-09-2004, 09.33.22
Ciao Raga...

Ho l'esigenza di aprire un file Txt da VB6, come se si aprisse NotePad

Qulcuano mi sa dare un dritta ??? (D)

P8257 WebMaster
15-09-2004, 11.08.37
Supponiamo di avere una form (form1).. inserisci in essa una text box (text1) con le proprietÓ che ti interessano.. a questo punto creiamo un file di prova (prova.txt) e scriviamo questo codice nella form_load o nell'evento in cui il file si deve aprire:


Dim riga As String

Open "C:\PROVA.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, riga
Text1.Text = Text1.Text & vbCrLf & riga
Loop
Close #1



Il codice Ŕ molto grezzo .. va perfezionato .. vanno gestiti gli errori ecc. ma il succo Ŕ questo...

Bye :cool:

andreakpr
15-09-2004, 11.13.49
... scusa ma mi sono spiegato male...

Io il file l'ho gia scritto, dopo la scrittura lo devo visualizzare con il notePad... penso che si debba utilizzare una Api, ma sono completamente all'oscuro...

LoryOne
15-09-2004, 11.32.31
Shell "notepad [percorso file+nome]", vbNormalFocus

andreakpr
15-09-2004, 11.52.47
Figata !

Il comendo Shell Ŕ come se fosse l'esegui del men¨ di avvio!

Puoi fare di tutto proprio! Grazie!