Changer format zip

Question

Voici mon code pour zipper des fichiers, celui fonctionne parfaitement

Dim oShell As Object, Fso As Object

    Dim i As Long
    Dim Fichier As String, MyBinary As String
    Dim LeZip As Variant
    Dim MyHex As Variant
    
    Fichier = Text1.Text
    LeZip = "C:\Ma sauvegarde.zip"
     
    Set Fso = CreateObject("Scripting.FileSystemObject")
    MyHex = _
        Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
    
    For i = 0 To UBound(MyHex)
        MyBinary = MyBinary & Chr(MyHex(i))
    Next
    
    With Fso.CreateTextFile(LeZip, True)
        .Write MyBinary
        .Close
    End With
    
    Set oShell = CreateObject("Shell.Application")
    oShell.Namespace(LeZip).CopyHere (Fichier)
    
    Set oShell = Nothing

Ce code marche bien pour aller me prendre direct le chemin de la textbox, pas de prooblèmes

Mais le hic c'est que je dois maintenant faire

LeZip = "C:\Ma sauvegarde.zip"

en 

LeZip = "C:\Ma sauvegarde.Plsk"

Et si je change ça plante, avez vous une idée?

cs_DARKSIDIOUS · Answer

Salut,

Si c'est juste renommer le fichier, compresse le dans un fichier en .zip, puis renomme le fichier une fois fini en .plsk (commande name as il me semble)
______________________________________
DarK Sidious

ganon22 · Answer

J'y avais penser aussi mias le fait c'est que si on renomme l'extension, cela ne marche pas, pour que cela marche bien (un exemple)

Je prend winzip, je fais compresser et avant d'appuyer sur ok

Je change zip par plsk et la ca marche, je peux lancer le programme que si je renomme après j'ai droit au message d'erreur

PCPT · Answer

toujours aussi bien expliqué....
http://www.vbfrance.com/infomsg_ZIP-CHEMIN-DESTINATION_1116247.aspx#13
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Renfield · Answer

un message d'erreur parce que tu renomme un fichier ?
tu te moque de nous ?

quel est le message en question ?

ganon22 · Answer

J'ai utilisé ce code ci, et qui marche très bien et je remercie son auteur

http://www.vbfrance.com/codes/ZIP-FICHIERS-OU-DOSSIERS_17911.aspx

Changer format zip

5 réponses

Votre réponse

Discussions similaires