Comment explorer PC et ouvrir fichier avec VB

Bonjour,
En VB.Net tu à le composant OpenFileDialog
A+

Merci mais il y a un probleme,voici le code :

Public Class Form1
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim selectedFile As String = String.Empty

' Pour afficher l'OpenFileDialog
OpenFileDialog1.ShowDialog()

' Pour insérer l'emplacement du fichier choisi dans le TextBox
selectedFile = OpenFileDialog1.FileName

If (selectedFile IsNot Nothing) Then
TextBox3.Text = selectedFile
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim text As String
text = TextBox3.Text
text = text.Replace("a", "b")
TextBox3.Text = text
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

End Class

le probleme c'est que quand je fais crypter au lieu de crypter le dossier, il crypte le chemain d'accès

Une petite aide ?

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TB()
        TB = Split(TextBox3.Text, "\")
        TextBox3.Text = TB(UBound(TB)).Replace("a", "b")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        TextBox3.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'End >> Arrèt brutal à proscrire...
        Dispose()
    End Sub
End Class

A+

Bin oui mais ça fait la meme chose !Ca crypte toujours juste le nom, moi ce que je veux c'est crypter les commandes, lettres du fichier lui meme, pas juste le nom

Beh suivant tes explivations... !!!
Regarde du coté de OPEN et As Byte.
A++

Merci !

j'ai trouvé mais je voudrai le sauvegarder , j'ai mis le chemin d'acces dans le textbox2 mais je ne trouve pas la commande pour !!

voici mon code

Public Class Form1

'Pour Ouvrir le fichier
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub

'Pour sauvegarder
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub

'Pour remplacer les lettres
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim text As String
text = My.Computer.FileSystem.ReadAllText(TextBox1.Text)
text = text.Replace("a", "b")
TextBox3.Text = text
'ligne incomplete text = ici la commande a mettre pour sauvegarder a partit du chemain d'acces qui est dans le textbox (TextBox2.Text)
End Sub
End Class

Le plus simple, remplace ton TextBox par un RichTextBox, tu peu alors sauver ton fichier avec...

    RichTextBox1.SaveFile(TextBox1.Text)

Merci beaucoup !!!
A+