Comment explorer PC et ouvrir fichier avec VB Résolu/Fermé

Question

Bonjour, 
Je veux créer un logiciel de cryptage en Visual Basic, pour sa pas de soucis, mais je voudrais créer un bouton qui permette d'explorer tout windows et de modifié le fichier sélectionné mon code c'est sa :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String
        text = ("le fichier qui sera séléctionner")
        text = text.Replace("a", "g")
        text = text.Replace("b", "z")
        ("le fichier séléctionné") = text
    End Sub
End Class

lermite222 · Answer

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

Ga-Hell · Answer

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

lermite222 · Answer

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 ClassA+

Ga-Hell · Answer

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

lermite222 · Answer

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

Ga-Hell · Answer

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

lermite222 · Answer

Le plus simple, remplace ton TextBox par un RichTextBox, tu peu alors sauver ton fichier avec...
    RichTextBox1.SaveFile(TextBox1.Text)

Ga-Hell · Answer

Merci beaucoup !!!
A+