[VB] caricare file...

[Foga27News]

Originariamente inviato da Francis87
credo di esserci riuscito così:

Private Sub mnuFileApri_Click()
 Dim myfile As String
 myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
 Dim Contenuto As Integer
 Open myfile For Binary As #1
 Get #1, 1, Contenuto
 Close #1
 txtCorpo.Text = Contenuto
End Sub 

ma non mi va bene la visualizzazione del file nel mio txtbox!! perkè apro una pagina web e mi mostra 8508 ????
devo aprirla come con notepad.... come si fa?

Il tuo errore è che la funzione Get prende tanti caratteri quanto è lunga la stringa.
Devi fare così:

Private Sub mnuFileApri_Click()
 Dim myfile As String
 myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
 Dim Contenuto As Integer
 Open myfile For Binary As #1
'La stringa ora conterrà tanti spazi vuoti quanto la larghezza del file'
Contenuto=space(lof(1))
 Get #1, 1, Contenuto
 Close #1
 txtCorpo.Text = Contenuto
'Libera lo spazio'
Contenuto=""
End Sub 

:metallica