Discussion :

[lephyrexian]

BOnjour a tous.

Je cherche a zipper fichier par fichier en gardant un historique de 3 jours.

Voici mon 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = FSO.GetFolder ("D:\test")
   Set Dossiers = fso.GetFolder(folder)
   Set fic = Dossiers.Files
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim folder, MyHex, MyBinary, i
   Dim oShell, oApp, oFolder, oCTF, oFile
   Dim oFileSys
 
  'Boucle qui fait la comparaison avec la date du fichier créé et le nombres de jour des fichiers à zipper
 
   For Each objFile in fic
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > 4 Then
 
		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 du zip
			Set oCTF = oFileSys.CreateTextFile(folder, True)
			oCTF.Write MyBinary
			oCTF.Close
			Set oCTF = Nothing
 
		Set oApp = CreateObject("Shell.Application")
 
		Set oFolder = oApp.NameSpace(folder)
			If Not oFolder Is Nothing Then _
				oApp.NameSpace(folder).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(folder, ForAppending, False)
 
							If Err.Number <> 0 Then
								Err.Clear
								wScript.Sleep 3000
							End If
					Loop
 
				Set oFile = Nothing
				Set oFileSys = Nothing
 
            		end if
    next

J'ai une erreur qui me dis acces refusé d'ou ca peux venir ?? Ou est ce que jai fait une erreur.

Merci de me le dire ou de me mettre sur la voie

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ..?
dés la premiére utilisation ..?

[lephyrexian]

A la ligne 28 caracteres 4 soitpour lui ici ==>

Code :

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

Set oCTF = oFileSys.CreateTextFile(folder, True)

merci

[lephyrexian]

Rebonjour,

Après avoir farfouiller un peu partout dans le forum j'ai trouvé un code qui fait ce que je veux mais le soucis c'est qu il est en vb6 et je voudrais le transformer en vbscript.
Pouvez vous maider svp

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
Sub ZipFichier()
    Dim oShell As Object, Fso As Object
    Dim i As Long
    Dim Fichier As String, MyBinary As String
    Dim LeZip As Variant
    Dim MyHex As Variant
 
    Fichier = "C:\le classeur.xls"
    LeZip = "C:\Ma sauvegarde.zip"
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    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
 
    With Fso.CreateTextFile(LeZip, True)
        .Write MyBinary
        .Close
    End With
 
    Set oShell = CreateObject("Shell.Application")
    oShell.NameSpace(LeZip).CopyHere (Fichier)
 
    Set oShell = Nothing
End Sub

[omen999]

vu rapidement, au moins deux choses anormales:

Code :

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

1
2
3
set folder = FSO.GetFolder ("D:\test")
...
Dim folder, MyHex, MyBinary, i

redéfinir une variable après l'avoir instanciée n'est pas vraiment une bonne idée...

d'autre part, tu n'a pas bien vu la syntaxe de la méthode .CreateTextFile
folder doit être une simple variable chaine et non un objet folder

la doc de windows script est très bien faite, mais il ne faut pas oublier de la lire

[lephyrexian]

Excsue moi je vais peut etre posé une question bete mais ou se toruve la doc window script ^^

merci

[lephyrexian]

et pour ce qui est du 2 eme code a modifié pour en faire du vbs qui peux m'aider

merci

[omen999]

lire ce post: http://www.developpez.net/forums/sho...d.php?t=230947

j'ai relu ton exemple, il est non seulement inexploitable mais il ne contient aucun code capable de zipper quoi que ce soit...