Aprire un file.Txt in VB 6

[andreakpr]

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]

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]

... 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]

Shell "notepad [percorso file+nome]", vbNormalFocus

[andreakpr]

Figata !

Il comendo Shell è come se fosse l'esegui del menù di avvio!

Puoi fare di tutto proprio! Grazie!