[Aide]Commande Visual Basic Express

Commande Visual Basic Express [Aide] - Divers - Programmation

Marsh Posté le 23-10-2011 à 12:13:01    

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
Reply

Marsh Posté le 23-10-2011 à 12:13:01   

Reply

Marsh Posté le 23-10-2011 à 12:18:59    

personne?


Message édité par dory1006 le 23-10-2011 à 12:49:57
Reply

Marsh Posté le 23-10-2011 à 19:16:47    

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...
Reply

Marsh Posté le 23-10-2011 à 19:35:48    

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?

Reply

Marsh Posté le 24-10-2011 à 11:29:25    

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


---------------
Seul Google le sait...
Reply

Marsh Posté le 24-10-2011 à 17:58:44    

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  
 
 

Reply

Marsh Posté le 24-10-2011 à 20:29:20    

Renommes là!


---------------
Seul Google le sait...
Reply

Marsh Posté le 24-10-2011 à 20:31:48    

En quoi??

Reply

Marsh Posté le 25-10-2011 à 20:42:59    

enlenomquetuveux ?


---------------
Seul Google le sait...
Reply

Marsh Posté le 06-11-2011 à 20:16:24    

Résolu


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed