Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1428 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

  [Aide]Commande Visual Basic Express

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Aide]Commande Visual Basic Express

n°2107695
dory1006
Posté le 23-10-2011 à 12:13:01  profilanswer
 

Salut à tous,  
 
Je débute, enfin, jusque ici j'ai juste suivi un tuto sur Visual Basic et j'aimerai savoir extraire un fichier .rar(ou zip) après, admettons, un téléchargement.  
 
EX :  
 
 
My.Computer.Network.DownloadFile("x",  
Environment.GetFolderPath(Environment.SpecialFolde  
r.Où l'on veut que le fichier se mette)  
 
Et après j'aimerai l'extraire. Est-ce quelqu'un pourrait m'aider?  
 
Merci d'avance  :)


Message édité par dory1006 le 23-10-2011 à 12:49:44
mood
Publicité
Posté le 23-10-2011 à 12:13:01  profilanswer
 

n°2107696
dory1006
Posté le 23-10-2011 à 12:18:59  profilanswer
 

personne?


Message édité par dory1006 le 23-10-2011 à 12:49:57
n°2107741
breizhbugs
Posté le 23-10-2011 à 19:16:47  profilanswer
 

Pour les zip gzip uniquement (rar pas supporté nativement par windows)
-> http://msdn.microsoft.com/en-us/li [...] tream.aspx


Message édité par breizhbugs le 23-10-2011 à 19:20:01

---------------
Seul Google le sait...
n°2107743
dory1006
Posté le 23-10-2011 à 19:35:48  profilanswer
 

Merci pour la réponse mais étant donné que je suis vraiment débutant je ne comprends rien à rien comment faire ça. Mais j'ai aussi trouvé une autre référence (DoNetZip Library) que j'ai ajouté
au programme. Voici ce qui me disent de faire pour extraire un fichier :  
 
Private Sub MyExtract
  Dim ZipToUnpack As String = "C1P3SML.zip"  
  Dim UnpackDirectory As String = "Extracted Files"
  Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)    
      Dim e As ZipEntry    
      ' here, we extract every entry, but we could extract conditionally,
      ' based on entry name, size, date, checkbox status, etc.    
      For Each e In zip1                
          e.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)
      Next  
  End Using    
End Sub
 
Mais je comprends pas où il faut remplacer par ses fichiers à soi à part à la première ligne ou je sais que "C1P3SML.zip" va être pour moi par ex: ".minecraft.zip". Est-ce que tu peux m'éclairer?

n°2107815
breizhbugs
Posté le 24-10-2011 à 11:29:25  profilanswer
 

Voila et "Extracted Files" est le nom du répertoire de destination.


---------------
Seul Google le sait...
n°2107884
dory1006
Posté le 24-10-2011 à 17:58:44  profilanswer
 

Yeah! J'ai réussi. Merci beaucoup! Mais il y encore un tout petit problème...
 
Private Sub MyExtract  
  Dim ZipToUnpack As String = "C1P3SML.zip"    
  Dim UnpackDirectory As String = "Extracted Files"  
  Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)    
      Dim e As ZipEntry                                                               Ils me disent que la variable "e" masque une variable dans un bloc englobant
      ' here, we extract every entry, but we could extract conditionally,  
      ' based on entry name, size, date, checkbox status, etc.    
      For Each e In zip1                
          e.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)  
      Next    
  End Using    
End Sub  
 
 

n°2107904
breizhbugs
Posté le 24-10-2011 à 20:29:20  profilanswer
 

Renommes là!


---------------
Seul Google le sait...
n°2107905
dory1006
Posté le 24-10-2011 à 20:31:48  profilanswer
 

En quoi??

n°2108120
breizhbugs
Posté le 25-10-2011 à 20:42:59  profilanswer
 

enlenomquetuveux ?


---------------
Seul Google le sait...
n°2110058
dory1006
Posté le 06-11-2011 à 20:16:24  profilanswer
 

Résolu


Message édité par dory1006 le 09-11-2011 à 20:12:59

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  [Aide]Commande Visual Basic Express

 

Sujets relatifs
besoin d'aideAide pour Exo
[Résolu] extraire nom de domaine depuis une URLdemande d'aide contre hacking de site
aide javascript / css : phénomène paranormal[Python] Aide pour un programme de débutant
Besoin d'aide dans mon code[VBS] associer le stout d'une commande à une variable
aide[Batch] Lancer une ligne de commande avec des paramètres
Plus de sujets relatifs à : [Aide]Commande Visual Basic Express


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR