Dim f As String ' contient chemin+fichier Dim ligne As String OpenFileDialog1.Title = "Choix du fichier à ouvrir ?" OpenFileDialog1.Filter = "fichier Texte|*.txt|fichier Pégase|*.peg" OpenFileDialog1.DefaultExt = "txt" OpenFileDialog1.Multiselect = False OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then f = OpenFileDialog1.FileName Try 'enregistrement du fichier ' test si existe et demande quoi faire ' si écraser : écrire mode création Catch ex As Exception MsgBox("ERREUR sur fichier" & vbLf & f & vbLf & Err.Number & vbLf & Err.Description, vbCritical) End Try End If OpenFileDialog1.Dispose()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ligne As String OpenFileDialog1.Title = "Choix du fichier à ouvrir ?"
OpenFileDialog1.Title = "Choix du fichier à ouvrir ?"
Dim ligne As String OpenFileDialog1.Title = "Choix du fichier à ouvrir ?"
Dim ligne As String
OpenFileDialog1.Title = "Choix du fichier à ouvrir ?"