CACHER UN FICHIER ZIP DANS UNE IMAGE
cs_ramasoft
Messages postés
10
Date d'inscription
vendredi 30 mai 2003
Statut
Membre
Dernière intervention
15 juin 2018
-
8 juil. 2013 à 12:05
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 16 juil. 2013 à 08:27
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 16 juil. 2013 à 08:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/55253-cacher-un-fichier-zip-dans-une-image
https://codes-sources.commentcamarche.net/source/55253-cacher-un-fichier-zip-dans-une-image
16 juil. 2013 à 08:27
Private Sub cmdOK_Click(sender As System.Object, e As System.EventArgs) Handles cmdOK.Click
If txtname.Text = lblimage.Text Then
txtname.Text = txtname.Text & "_2"
End If
espace = InStr(txtname.Text, " ")
If espace = 0 Then
Dim SW As New IO.StreamWriter(chemincible & "\test.bat") ' Crée un fichier de commande dos
SW.WriteLine("cd " & chemincible & "") ' Ajout de la première commande a exécuter sous l'invite de commande
SW.WriteLine("COPY/B " & nomimage & Extseule & " + " & nomzip & ".zip" & " " & txtname.Text & Extseule) 'création du fichier caché
SW.Close() ' On ferme le fichier
' MessageBox.Show("Cliquez sur le fichier test.bat pour cacher votre fichier", "Cacher fichier", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(chemincible & "\test.bat") 'on ouvre le fichier batch
Process.Start(chemincible & "") 'on ouvre le dossier
cmdOK.Enabled = False
Else
MessageBox.Show("Le nom du fichier ne doit pas contenir d'espace!", "Renommer fichier caché", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End Sub
bonne programmation
11 juil. 2013 à 13:46
@+
11 juil. 2013 à 13:03
11 juil. 2013 à 13:00
exemple avec un streamreader
Using Sr As New StreamReader(File)
While Not Sr.EndOfStream()
sources.Add(Sr.ReadLine())
End While
Sr.Close() 'inutile avec using
Sr.Dispose() 'inutile avec using
End Using
11 juil. 2013 à 09:30
Merci pour vos commentaires
ADN56 cela fait plaisir de te lire. Je vais me pencher sur le USING, j'avoue ne pas avoir vu d'ouverture de fichier de cette manière!
Cordialement
10 juil. 2013 à 20:48
10 juil. 2013 à 19:06
Dim OFD As New OpenFileDialog
With OFD
par un simple USING ;)
continus tu me régales à chaque coup ^^
cordialement ADN
8 juil. 2013 à 13:46
Merci pour le commentaire qui est tout à fait justifié. Ce programme est un exercice pour débutant: programmer en fonction des indications données. Personnellement je ne vois pas le nécessité de cacher un fichier de cette manière. Mais c'est intéressant de connaitre les possibilité qu'offrent Windows!
Cordialement
8 juil. 2013 à 12:05
On redécouvre ça à travers un framework de plusieurs dizaines de Mo ...
Cela dit, ce n'est pas une critique mais juste le clin d'oeil d'un programmeur des années 80.