Comment explorer PC et ouvrir fichier avec VB

Résolu/Fermé

Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 - 18 mars 2011 à 18:32
Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 - 29 mars 2011 à 17:53

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:

Comment explorer PC et ouvrir fichier avec VB
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier .bin - Guide
Fichier rar - Guide
Comment ouvrir un fichier docx ? - Guide
Fichier host - Guide

8 réponses

Réponse 1 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 mars 2011 à 19:23

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

Réponse 2 / 8

Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 5
Modifié par Ga-Hell le 18/03/2011 à 20:06

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

Réponse 3 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 mars 2011 à 22:42

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+

Réponse 4 / 8

Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 5
19 mars 2011 à 18:19

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

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

Posez votre question

Réponse 5 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
19 mars 2011 à 18:34

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

Réponse 6 / 8

Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 5
Modifié par Ga-Hell le 28/03/2011 à 18:49

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

Réponse 7 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
29 mars 2011 à 06:33

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

    RichTextBox1.SaveFile(TextBox1.Text)

Réponse 8 / 8

Ga-Hell Messages postés 33 Date d'inscription vendredi 18 mars 2011 Statut Membre Dernière intervention 9 juillet 2011 5
Modifié par Ga-Hell le 30/03/2011 à 16:11

Merci beaucoup !!!
A+

Newsletters