Discussion :

[jessiem34]

Bjr,

j'ai une appication qui liste un nombre de fichier et doit par la suite les zipper dans un répertoire donné. Malheureusement, je ne peux utiliser aucune .dll externe au système.

J'ai trouvé un peu d'infos sur windows XP, apparemment c'est Shell32 permet de lire/crééer/modifier les fichiers zip, mais je ne sais pas du tout comment procéder .

QQ1 a une idée...
Merci d'avance, toutes les réponses sont bonnes à prendre.
JessieM

[alexandrebergercyr]

Pourquoi tu ne peux pas utiliser d'autre .dll
Tu peux vraiment pas utiliser des références?
Est ce que tu as le nom des fichiers à zipper ou seulement le nombre?

Il y a des bonnes faq sur ce site...
Tu as tu fais une recherche ?

Alex

[jessiem34]

Je ne peux utiliser que ce qui est installé sur le poste. Rien d'autre. Cette application sera ensuite installé sur d'autres postes identique à celui que j'utilise. Interdiction de rajouter quoique ce soit sur le poste.
Donc je dois utiliser la fonction zip de windows.
J'arrive pour le moment à zipper un fichier (source trouvé sur le net), mais n'est pas encore trouver la fonction pour en zipper plusieurs, ni celle qui me permet de les lire .....
voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub ZMakeZIPFile(ByVal sZIPFileName, ByVal sFileName)
 
Dim oShell As Object
Dim oZip As Object
 
   Open sZIPFileName For Output As #1
 
   Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
 
   Close #1
 
   ' Copy the file in the compressed folder
 
   Set oShell = CreateObject("Shell.Application")
   Set oZip = oShell.NameSpace(sZIPFileName)
 
   oZip.CopyHere sFileName
   oZip.CopyHere "C:\Documents and Settings\l0950588\My Documents\Reflection\En cours\Raccourci vers Cooke2.mdb"
 
   ' Keep script waiting until Compressing is done
 
   Do Until oZip.Items.Count = 1
      DoEvents
   Loop
 
   Set oZip = Nothing
   Set oShell = Nothing
 
End Sub

[jessiem34]

inutile de préciser que la ligne :

oZip.CopyHere "C:\Documents and Settings\l0950588\My Documents\Reflection\En cours\Raccourci vers Cooke2.mdb"

n'a aucun effet sur le zip !

[alexandrebergercyr]

J'aimerias faire des test de mon coté, mais je ne sais pas c'est quelle référence oZip tu peux tu me dire les références que tu as ?

Merci d'avance

[Dolphy35]

Salut,

voici un bout de code qui traîne sur le forum, de mémoire je crois que c'était SilkyRoad qui l'avait déposé, je crois que c'est une adaptation d'un code VBS. Ce code ne nécessite aucune dll

il fonctionne sous XP et Vista (Code fonctionne également sous Excel)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Dim Source, Destination, MyHex, MyBinary, i
Dim oShell, oApp, oFolder, oCTF, oFile
Dim oFileSys
 
Source = "C:\monDossier\"
Destination = "C:\MonZip.zip"
 
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
 
Set oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
'Creation de la base du fichier zip.
Set oCTF = oFileSys.CreateTextFile(Destination, True)
oCTF.Write MyBinary
oCTF.Close
Set oCTF = Nothing
 
Set oApp = CreateObject("Shell.Application")
 
Set oFolder = oApp.NameSpace(Source)
If Not oFolder Is Nothing Then _
    oApp.NameSpace(Destination).CopyHere oFolder.Items
 
'pour l'utilisation en VBS
'wScript.Sleep 5000
 
Set oFile = Nothing
On Error Resume Next
 
Do While (oFile Is Nothing)
    'Attention: provoque une erreur 70 si un des fichiers à zipper
    'est toujours ouvert.
    Set oFile = oFileSys.OpenTextFile(Destination, ForAppending, False)
 
    If Err.Number <> 0 Then
        Err.Clear
        'pour l'utilisation en VBS
        'wScript.Sleep 3000
    End If
Loop
 
Set oFile = Nothing
Set oFileSys = Nothing