[BUG] Creation Zip VBS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [BUG] Creation Zip VBS

Kayanwan

Pixelyoz

Bonjour à tous,

je rencontre un problème pour créer un VBS me générant des zip sur mes dossiers

Pour un dossier il n'y a aucuns problèmes, par contre, dès que je veux en générer plusieurs par le bias d'une boucle c'est une autre affaire.

voici le code :

Code :

'
'
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim Source, Destination, MyHex, MyBinary, i, j
Dim oShell, oApp, oFolder, oCTF, oFile
Dim oFileSys
Source1 = "C:\Mes documents\BAK"
Source2 = "C:\Mes documents\DL\vnc-E4_3_1-x86_x64_win32"
Destination1 = "C:\Mes documents\BAK.zip"
Destination2 = "C:\Mes documents\vnc-E4_3_1-x86_x64_win32.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
'For j = 1 to 2
Set oShell = CreateObject("WScript.Shell" )
Set oFileSys = CreateObject("Scripting.FileSystemObject" )
'Creation du zip
Set oCTF = oFileSys.CreateTextFile(Destination(j), True)
oCTF.Write MyBinary
oCTF.Close
Set oCTF = Nothing
Set oApp = CreateObject("Shell.Application" )
Set oFolder = oApp.NameSpace(Source(j))
If Not oFolder Is Nothing Then _
oApp.NameSpace(Destination(j)).CopyHere oFolder.Items
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(j), ForAppending, False)
If Err.Number <> 0 Then
Err.Clear
wScript.Sleep 3000
End If
Loop
'Next
Set oFile = Nothing
Set oFileSys = Nothing

J'ai mis en commentaire la boucle For car ça bug dès que je la met et que je rajoute une variable à mes constante source et destination

Merci de votre aide

Message édité par Kayanwan le 11-09-2007 à 09:32:07

---------------
www.pixelyoz.com - www.eyeofworld.pixelyoz.com - www.emotionofday.pixelyoz.com - www.footproject.pixelyoz.com

Publicité

Kayanwan

Pixelyoz

Problème réglé.

Il fallait que je declare mes variables comem des tableaux

Kayanwan

Pixelyoz

le script marche bien sous Windows XP.

Par cotnre, sous Windos 2000, j'ai une notification poru la creation du fichier. je ne trouve pas le paramètre pour l'enlever.

Une idée ?

yomg 95

T'as essayé un Application.DisplayAlerts = False ?

---------------
Ch'titeS venteS ! ~ "S'il n'y a pas de solution, c'est qu'il n'y a pas de probleme" Devise ShadokS.

Kayanwan

Pixelyoz

euh... tu peux m'en dire plus ? j'ai essayé, mais j'ai une erreur avec displayalerts

yomg 95

Je suis pas un expert en VB, je débute. Regarde l'aide de VB

cette instruction permet de zapper les messages d'alerte Windows ...

Rajoute un Application.DisplayAlerts = True en fin de macro si jamais ca viens de là.

---------------
Ch'titeS venteS ! ~ "S'il n'y a pas de solution, c'est qu'il n'y a pas de probleme" Devise ShadokS.

Kayanwan

Pixelyoz

Je ne me susi pas emmerdé, piur la creation du zip. je suis passé par un compresseur en ligne de commande, et pour le reste, je fais en vbs.

merci de ton aide

A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[BUG] Creation Zip VBS

Sujets relatifs
Programmation d'évenement pour un groupe de label créer dynamiquement	Création de sites multiples
Création d'une dll	[Html/VbS] Lancer une fonction via un lien
Création d'une commande dos	[VBS] Problème sur RUN
création formulaire de recherche	Création d'une image pour valider un formulaire
Création d'une DLL	probleme avec creation de table sql mayadmin
Plus de sujets relatifs à : [BUG] Creation Zip VBS

Page générée en 0.062 secondes