[BATCH/VBS/...] Archiver tous les fichiers log d'un dossier

Archiver tous les fichiers log d'un dossier [BATCH/VBS/...] - Divers - Programmation

Marsh Posté le 22-01-2013 à 12:10:01    

Hello,
 
J'ai un petit batch ou n'importe quoi que je dois faire pour mon boulot.
 
Il consiste à archiver tous les fichiers .log d'un dossier dans un fichier zip ou rar, éga.
 
Mes contraintes :
Utiliser le zip de windows XP ou winrar
Pouvoir le lancer automatiquement chaque X mois par exemple (tâche planifiée windows?)
 
J'ai essayé avec le zip de windows et un truc du genre que j'ai trouvé sur le net :
 
Fichier batch :

Code :
  1. cscript 2-zip.vbs "C:\smdtest\Archives.zip" "C:\smdtest\smdtest32_4-4-2011_11h10.log"
  2. pause


 
Fichier VBS :

Code :
  1. Set objArgs = WScript.Arguments
  2. ZipFile = objArgs(0)
  3. ' Create empty ZIP file and open for adding
  4. CreateObject("Scripting.FileSystemObject" ).CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
  5. Set zip = CreateObject("Shell.Application" ).NameSpace(ZipFile)
  6. ' Add all files/directories to the .zip file
  7. For i = 1 To objArgs.count-1
  8.   zip.CopyHere(objArgs(i))
  9.   WScript.Sleep 10000 'REQUIRED!! (Depending on file/dir size)
  10. Next


 
Mais je n'arrive que avec un seul fichier log pré défini, et là les fichiers logs que je veux ont la date et l'heure, et il y en a plusieurs et le format n'est pas standard, par contre c'est tous les log du dossier que je veux archiver.
 
J'ai ensuite essayé avec winrar et le fichier help, mais sans trop de succès, on dirait qu'il tourne en boucle en ligne de commande sans rien faire :
 
rar a  Q:\Commun\user\Archives.rar  Q:\Commun\user\*.log
pause
 
Je précise que c'est en réseau!
 
Merci de votre aide et de vos idées!


---------------
Swisscore
Reply

Marsh Posté le 22-01-2013 à 12:10:01   

Reply

Marsh Posté le 24-01-2013 à 14:13:58    

Personne?


---------------
Swisscore
Reply

Marsh Posté le 27-01-2013 à 10:56:45    

bonjour
voir pkzip sous dos en ligne de commande

Reply

Marsh Posté le 01-02-2013 à 11:49:48    

Merci pour l'info, je vais me pencher dessus.


---------------
Swisscore
Reply

Marsh Posté le 07-02-2013 à 07:47:04    

Alors j'ai essayé mais rien ne se fait, je ne comprends pas pourquoi, je dois faire quelque chose de faux!


---------------
Swisscore
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed