Discussion :

[Sun2k]

Bonjour

J'ai récupéré le code de hackoofr "Encapsuler un fichier zippé.."

Voici le bout de code (ou se trouve l'erreur: ligne 125 caract 9):

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
 
120   Sub Unzip(ZippedFile, UnZippedFile, ExistingUnZippedFile)
121   'Dezippe le fichier ZippedFile vers l'emplacement UnZippedFile et efface le fichier ExistingUnZippedFile
122   Dim FilesInZip, Shell
123   DelFile UnZippedFile & ExistingUnZippedFile
124   Set Shell = CreateObject("Shell.Application")
125   Set FilesInZip = Shell.NameSpace(ZippedFile).Items
126   Shell.NameSpace(UnZippedFile).CopyHere FilesInZip,(4 + 8 + 16 + 512 + 1024)
127   Do
128   If fso.FileExists(UnZippedFile & ExistingUnZippedFile) Then
129   If fso.GetFile(UnZippedFile & ExistingUnZippedFile).Size > 0 Then Exit Do
130   End If
131   Wscript.Sleep 100000
132   Loop
133   Set FilesInZip = Nothing
134   Set Shell = Nothing
135   End Sub

Et voici le message d'erreur



Si vous avez des pistes, je suis preneur..

Merci