Inseriamo prima di tutto il controllo “common dialog”, andiamo in project–>components–>selezioniamo “Microsoft Common Dialog Control 6.0” e aggiungiamolo!dopodichè piazziamo il seguente codice nel command che ci interessa.
CommonDialog1.Filter = “Text files|*.txt” ‘ aggiunto per far vedere la possibiltà di filtrare per esempio solo file con estensione .txt
CommonDialog1.ShowOpen
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
Form1.Caption = NomeDelTesto
Text1.SelStart = Len(Text1.Text)
If you enjoyed this post, make sure you subscribe to my RSS feed!
ho un vecchio file vpb che non riesco ad aprire
@dario: Che errore ti da? Hai installato sulla macchina visual basic sp6?