Comment explorer PC et ouvrir fichier avec VB

Résolu
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

8 réponses

Réponse 1 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
En VB.Net tu à le composant OpenFileDialog
A+
0
Réponse 2 / 8
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   5
 
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
0
Réponse 3 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0
Réponse 4 / 8
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   5
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Beh suivant tes explivations... !!!
Regarde du coté de OPEN et As Byte.
A++
0
Réponse 6 / 8
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   5
 
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
0
Réponse 7 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Le plus simple, remplace ton TextBox par un RichTextBox, tu peu alors sauver ton fichier avec... 
    RichTextBox1.SaveFile(TextBox1.Text)
0
Réponse 8 / 8
Ga-Hell Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   5
 
Merci beaucoup !!!
A+
0