Supprimer le contenu de mon dossier

Version imprimable

Bonjour à tous,

je souhaiterais supprimer tous les fichiers.log de mon dossier "Test"

Lorsque j’exécute le script: Il zip bien, déplace bien le .zip, mais ne supprime pas les fichiers.log dans le dossier d'origine

Merci à tous pour votre aide. :calim2:

PAB/31/SAB

Mon code:

Code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Dim Centre
Dim ListeCentre
Dim Plaque
Dim REP_SOURCE 
Dim REP_DESTINATION	
DIM LOG
 
Dim objFSO, objFolder, FileLog,fso,fileflag
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = Wscript.Arguments 
 
VERSION="1.00"
 
 
centre = objArgs(0) 
 
Select Case Centre
Case "AB"
	Plaque="OR"
Case "CD"
	Plaque="OR"
Case "EF"
	Plaque="ARGENT"
Case "GH"
	Plaque="ARGENT"
Case "IJ"
	Plaque="ARGENT"
Case Else
	Wscript.echo "Erreur dans le parametre"
	wscript.quit(2)
End Select
 
 
 
LOG="E:\Appli\projets\Log\sauv_mens_" & centre & ".log"
 
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
 
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
 
 
 
'Debut du traitement
'For Each Centre In Split(ListeCentre,";",-1)
For Each Centre In Split(Centre,";",-1)
 
 
	Source = "E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST"
 
	Destination = "H:\Historique\" & Centre & "\TEST\test_sauv_" & Centre & " " & MyDate & ".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 du 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
 
wScript.Sleep 5000
 
Set oFile = Nothing
'On Error Resume Next
 
next
 
Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST\*.log"), DeleteReadOnly

:salut:
Testez ce

Code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Dim Centre
Dim ListeCentre
Dim Plaque
Dim REP_SOURCE 
Dim REP_DESTINATION    
DIM LOG
 
Dim objFSO, objFolder, FileLog,fso,fileflag
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = Wscript.Arguments 
 
VERSION="1.00"
 
 
centre = objArgs(0) 
 
Select Case Centre
Case "AB"
    Plaque="OR"
Case "CD"
    Plaque="OR"
Case "EF"
    Plaque="ARGENT"
Case "GH"
    Plaque="ARGENT"
Case "IJ"
    Plaque="ARGENT"
Case Else
    Wscript.echo "Erreur dans le parametre"
    wscript.quit(2)
End Select
 
 
 
LOG="E:\Appli\projets\Log\sauv_mens_" & centre & ".log"
 
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
 
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
 
 
 
'Debut du traitement
'For Each Centre In Split(ListeCentre,";",-1)
For Each Centre In Split(Centre,";",-1)
 
 
    Source = "E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST"
 
    Destination = "H:\Historique\" & Centre & "\TEST\test_sauv_" & Centre & " " & MyDate & ".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 du 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
 
wScript.Sleep 5000
 
Set oFile = Nothing
'On Error Resume Next
next
 
Function DelLogFiles(chemin)
Set ws = CreateObject("wscript.Shell")
command = "cmd /c Del "& chemin & "\*.log"
Resultat = Ws.Run(command,0,True)
End Function
 
Call DelLogFiles("E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST")

27/06/2012, 09h30
papyxy

Est-ce normal que les noms soient différents lignes 35 et 87?
28/06/2012, 14h32
PAB/31/SAB

Est-ce normal que les noms soient différents lignes 35 et 87?

Oui papyxy

la ligne 35 est le chemin ou est déposé le fichier log du traitement script.

la ligne 87 est est le chemin ou se trouve les fichiers logs a supprimés

le log ( ligne 35) lui ne doit pas être supprimé, donc oui la différence des ligne est normale.

Cordialement
28/06/2012, 14h37
PAB/31/SAB

Supprimer le contenu de mon dossier

Merci hackoofr pour votre réponse.

Mais cela ne fonctionne toujours pas le zip est Ok

mais il delete pas les fichiers dans le dossier source ??

Auriez-vous une idée.

Cordialement:cry:
28/06/2012, 14h45
hackoofr

:salut: Ajoutez ceci a la fin du code car j'ai fait une erreur de frappe :mouarf:
Au lieu de faire ceci :

Code:

Call DelLogFiles("E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST")

j'ai écrit ceci ~~Call DelLogFiles("E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST\*.log")~~
28/06/2012, 16h36
PAB/31/SAB

Supprimer le contenu de mon dossier

Merci pour votre réponse hackoofr

mais là je ne vois pas l'erreur car vous aviez déjà modifié avec la bonne ligne?

Nous revenons donc au fait que les .log ne sont toujours pas supprimés

Cordialement
28/06/2012, 16h52
hackoofr

:salut:
Dans la ligne N° 90 je crois qu'il y a un espace en trop:

Code:

Call DelLogFiles("E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST")

Remplacez-là par celle-ci et dis moi le résultat !

Code:

Call DelLogFiles("E:\Appli\projets_" & plaque & "\" & Centre & "\TEST")

:salut:
Vous pouvez aussi tester cette fonction : ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function DelLogFiles(CheminDossier)
Dim oFSO,oFichier,NbFichiersEffaces
NbFichiersEffaces = 0 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Dossier = oFSO.GetFolder(CheminDossier)
If  oFSO.FolderExists(CheminDossier) Then
   For each oFichier in  Dossier.Files
       if Ucase(oFSO.GetExtensionName(oFichier.Name))="LOG" Then
          Wscript.Echo oFichier.Name
          oFichier.Delete	
          NbFichiersEffaces = NbFichiersEffaces + 1 
       end if
   Next
End If
MsgBox Cstr(NbFichiersEffaces) + " fichiers journale(s) ont été effacé(s) !",64,"Fichiers journales" 
End Function
 
Call DelLogFiles("c:\test")

Supprimer le contenu de mon dossier

Merci beaucoup hackoofr pour votre réponse.

Toutes vos propositions fonctionnent si je mets le chemin en dur
Code:

1 2 3 4 5 6 Function DelLogFiles(chemin) Set ws = CreateObject("wscript.Shell") command = "cmd /c Del "& chemin & "\*.log" Resultat = Ws.Run(command,0,True) End Function Call DelLogFiles("E:\Appli\projets_Or\AB\TEST\*.log")
OK

Mais lorsque je le mets comme ci-dessous il ne trouve pas le fichier ?
Code:

1 2 3 4 5 6 7 Function DelLogFiles(chemin) Set ws = CreateObject("wscript.Shell") command = "cmd /c Del "& chemin & "\*.log" Resultat = Ws.Run(command,0,True) End Function Call DelLogFiles("E:\Appli\projets_Or\AB\TEST\*.log") Call DelLogFiles("E:\Appli\projets_" & plaque & "\" & Centre & "\TEST")
KO

Je pense que c'est les paramètres dans la variable du chemin qui ne passent pas, et j'ai absolument besoin de cette variable.

Le script est passé avec le paramètre correspondant au centre

La je bloque vraiment????:calim2:

Cordialement

PAB/31/SAB

:salut:
Quand vous déboguez un programme il préférable d'ajouter toujours des Msgbox ou bien des wscript.echo
Code:

1 2 3 4 5 6 7 8 Function DelLogFiles(chemin) Set ws = CreateObject("wscript.Shell") command = "cmd /c Del "& chemin & "\*.log" Wscript.echo command Resultat = Ws.Run(command,0,True) End Function Call DelLogFiles("E:\Appli\projets_" & plaque & "\" & Centre & "\TEST")
et vérifier bien dans votre script s'il n'y a pas des espaces comme dans cette ligne :

Code:

Source = "E:\Appli\projets_" & plaque & "\ " & Centre & "\TEST"

04/07/2012, 09h55
PAB/31/SAB

Supprimer le contenu de mon dossier

Merci hackoofr pour toutes vos réponses.

Le script fonctionne parfaitement.

Merci encore

Cordialement

PAB/31/SAB