SPEEDLINKS : Découpeur de fichiers d'archives ZIP (ou autres).

Télécharger cet exemple (le fichier est à dézipper dans le dossier de SpeedLinks dans "C:\Program Files\SpeedLinks\")

Objectif :
Créer une procédure qui permet de découper un fichier d'archives (compressé) en fichiers plus petits ...
Une fois découpé le fichier est exploitable avec les outils ZIP standards de Windows.
Les formats acceptés : ZIP, ZIPDS, ZIPEXE, ZIPMV, ZOO, ZOO SFX, RAR, ARJ, ARJ SFX, ARC, ARC SFX, CAB, JAR , LHA, LHA SFX, LZH SFX, TAR, GZIP, Z, BH, BH SFX.

Démonstration :
Faites un clic droit sur le fichier à convertir (ZIP dans notre exemple) :

L'utilisateur choisit la taille de la découpe :

Si l'utilisateur choisit Personnalisé :

Résultat :

Voici le détail pour créer cet exemple :

Le code :

Les options :

Le détail du code :

' liste des options
Options=          "Disquette 1.44 Mo:1440000;"
Options=Options + "Disquette 2.88 Mo:2880000;"
Options=Options + "Email 2 Mo:2000000;"
Options=Options + "CD-Rom 650 Mo:650000000;"
Options=OptioAns + "CD-Rom 700 Mo:700000000;"
Options=Options + "Personnalisé ...:PERSO"
'selection de la taille
Taille=String_ListSelect("SplitZip","Sélectionnez la taille du découpage (en octets) : ",Options)
' si la taille à été indiquée
If Taille<>""A then
    If Taille="PERSO" then
        Taille=String_Input("SplitZip","Saisissez la taille du découpage (en octets) : ","","")
    End if
    If Taille<>"" then
        ' balayage des fichiers zip
        For i=0 to Context_SelCount-1
            ' fichier source
            Source=Context_Selected(i)
            ' fichier destination au même emplacement
            Destination=Path_PathName(Source) + "Decoupage de " + Path_FileName(Source)
            ' lancement de la conversion
            PLUGIN("SPLITZIP",Chr(34) & Taille & Chr(34) & " " & Chr(34) & Source &  Chr(34) & " " & Chr(34) & Destination & Chr(34))
        Next
    End if
End If

Didier Urban
08 Sep 2003