Ouvrire un fichier
AichaBENJELLOUN
Messages postés
21
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
27 septembre 2007
-
26 août 2007 à 01:16
PurBonheur Messages postés 66 Date d'inscription samedi 24 février 2007 Statut Membre Dernière intervention 7 octobre 2007 - 26 août 2007 à 10:58
PurBonheur Messages postés 66 Date d'inscription samedi 24 février 2007 Statut Membre Dernière intervention 7 octobre 2007 - 26 août 2007 à 10:58
A voir également:
- Ouvrire un fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET
- Vectoriser un fichier photoshop ✓ - Forum Graphisme/design
1 réponse
PurBonheur
Messages postés
66
Date d'inscription
samedi 24 février 2007
Statut
Membre
Dernière intervention
7 octobre 2007
1
26 août 2007 à 10:58
26 août 2007 à 10:58
Salut, ca depend de se que tu ouvre comme fichier. Pour un fichier texte voilà comment tu peux faire :
Dim MyOfd As New OpenFileDialog
Dim strReader As IO.StreamReader = Nothing
Try
MyOfd.Filter = "N'importe quel fichier (*.*) |*.*"
If MyOfd.ShowDialog = Windows.Forms.DialogResult.OK Then
strReader = New IO.StreamReader(MyOfd.FileName)
Dim chaine As String = strReader.ReadLine
While strReader.EndOfStream <> True
TextBox1.Text &= chaine & vbCrLf
chaine = strReader.ReadLine
End While
Else
MessageBox.Show("Rien n'est selectionner.")
End If
Catch ex As Exception
Finally
If strReader IsNot Nothing Then strReader.Close()
MyOfd.Dispose()
End Try
A plus.
Dim MyOfd As New OpenFileDialog
Dim strReader As IO.StreamReader = Nothing
Try
MyOfd.Filter = "N'importe quel fichier (*.*) |*.*"
If MyOfd.ShowDialog = Windows.Forms.DialogResult.OK Then
strReader = New IO.StreamReader(MyOfd.FileName)
Dim chaine As String = strReader.ReadLine
While strReader.EndOfStream <> True
TextBox1.Text &= chaine & vbCrLf
chaine = strReader.ReadLine
End While
Else
MessageBox.Show("Rien n'est selectionner.")
End If
Catch ex As Exception
Finally
If strReader IsNot Nothing Then strReader.Close()
MyOfd.Dispose()
End Try
A plus.
