Private Sub Ouvre() OpenFileDialog1.ShowDialog() End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk If e.Cancel = True Then Exit Sub Dim St As String = OpenFileDialog1.FileName If St.StartsWith("\") = False Then St = "" Ouvre() Else Me.Text = St End If End Sub
OpenFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)