script VBS pour suprimer un fichier selon la date de création

**maikess** · 20/07/2010, 20h15

merci de corriger le script ci-dessous, il fonctionnait correctement jusqu'à ce que j'ajoute les lignes concernant la date de création du fchier. en fait, je veux supprimer le fichier outlook.NK2 créer avant la date du 10/05/2010.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso,ws,AppData,Chemin,fich
Set ws = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2"
fich=fso.FileExists(chemin)
If (fich.datecreated<10/05/2010) Then
 If (fich) Then
 Set MyFile = fso.GetFile(chemin)
 MyFile.Delete
 end if
else
WScript.Quit
end if

**l_autodidacte** · 20/07/2010, 22h29

Remplace ce

Code :

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

If (fich.datecreated<10/05/2010) Then

par celui-ci:

Code :

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

If Mid(fich.datecreated,1,10)<"10/05/2010" Then

**ProgElecT** · 20/07/2010, 22h36

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If fso.FileExists(Chemin) Then
        Set MyFile = fso.GetFile(Chemin)
        If MyFile.datecreated < #10/5/2010# Then
                MyFile.Delete
        End If
        Else
        WScript.Quit
End If

**hackoofr** · 20/07/2010, 23h24

Envoyé par maikess

merci de corriger le script ci-dessous, il fonctionnait correctement jusqu'à ce que j'ajoute les lignes concernant la date de création du fchier. en fait, je veux supprimer le fichier outlook.NK2 créer avant la date du 10/05/2010.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso,ws,AppData,Chemin,fich
Set ws = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2"
fich=fso.FileExists(chemin)
If (fich.datecreated<10/05/2010) Then
 If (fich) Then
 Set MyFile = fso.GetFile(chemin)
 MyFile.Delete
 end if
else
WScript.Quit
end if

Salut, essaye La Fonction DateDiff(Interval, Date1, Date2)
L'argument interval peut prendre les valeurs suivantes :
Valeur Description
yyyy Année
q Trimestre
m Mois
y Jour de l'année
d Jour
w Jour de la semaine
ww Semaine
h Heure
n Minute
s Seconde

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim fso,ws,AppData,Chemin,fich
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2"
Set fich=fso.GetFile(chemin)
AgeMaximalFichiers=3 '3 mois par exemple car j'ai utilisé l'argument m = Mois
DateSysteme = Date 'On recupère la date système
If (DateDiff("m", Fich.DateCreated, DateSysteme) < AgeMaximalFichiers) Then
      If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
         Fich.Delete()
      End If

**maikess** · 21/07/2010, 09h59

ça marche toujours pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso,ws,AppData,Chemin,fich
Set ws = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2"
fich=fso.FileExists(chemin)
If Mid(fich.datecreated,1,10)<"10/05/2010" Then
 If (fich) Then
 Set MyFile = fso.GetFile(chemin)
 MyFile.Delete
 end if
else
WScript.Quit
end if

**hackoofr** · 21/07/2010, 10h34

J'espère que ce code va marcher pour vous

Juste tu enlève le MsgBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If fso.FileExists(Chemin) Then
        Set MyFile = fso.GetFile(Chemin)
        If MyFile.datecreated < "#10/5/2010#" Then
		Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer"
                MyFile.Delete
        End If
        Else
        WScript.Quit
End If

**maikess** · 21/07/2010, 10h57

mon outlook.NK2 a la date de création du 20/07/2010. jai donc modifier le script comme suit. a chaque fois que je l'exécute jai le message "Rien à supprimer". ce n'est pas normal, je devais plustot avoir le message "fichier....... va etre supprimer", n'est ce pas?

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
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If (fso.FileExists(Chemin)) Then
        Set MyFile = fso.GetFile(Chemin)
        If (MyFile.datecreated <= "#20/07/2010#") Then
		Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer"
                MyFile.Delete
               else
               Msgbox "Rien à supprimer"
        End If
Else
WScript.Quit
End If

**ProgElecT** · 21/07/2010, 12h19

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
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If fso.FileExists(Chemin) Then
        Set MyFile = fso.GetFile(Chemin)
        'If MyFile.datecreated < #10/05/2010# Then
        If MyFile.datecreated < date Then
                msgbox "ok"
                'MyFile.Delete
                else
                msgbox "Le fichier est au moins de la date de ce jour"
        End If
        Else
        msgbox "le fichier n'a pas été trouvé"
        WScript.Quit
End If

ton problème est là

If (MyFile.datecreated <= "#20/05/2010#") Then

il ne faut pas mettre de guillemets

**maikess** · 21/07/2010, 13h37

ton problème est làil ne faut pas mettre de guillemets

il a falu que je change le signe inferieur (<) en > pour ce cà marche. ca donne donc le code suivant . Mais je me demande pourquoi le signe superieur?

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
 
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If (fso.FileExists(Chemin)) Then
        Set MyFile = fso.GetFile(Chemin)
        If (MyFile.datecreated > "#20/07/2010#") Then
		Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer"
                MyFile.Delete
               else
               Msgbox "Rien à supprimer"
        End If
Else
WScript.Quit
End If

**ProgElecT** · 21/07/2010, 15h47

message d'ouverture de la discussion

Envoyé par maikess

merci de corriger le script ci-dessous, il fonctionnait correctement jusqu'à ce que j'ajoute les lignes concernant la date de création du fchier. en fait, je veux supprimer le fichier outlook.NK2 créer avant la date du 10/05/2010.
[/CODE]

Envoyé par maikess

il a falu que je change le signe inferieur (<) en > pour ce cà marche. ca donne donc le code suivant . Mais je me demande pourquoi le signe superieur?

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
 
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\Outlook.NK2"
If (fso.FileExists(Chemin)) Then
        Set MyFile = fso.GetFile(Chemin)
        If (MyFile.datecreated > "#20/07/2010#") Then
		Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer"
                MyFile.Delete
               else
               Msgbox "Rien à supprimer"
        End If
Else
WScript.Quit
End If

moi dans ton dernier exemples je vois toujours les guillemets

**maikess** · 21/07/2010, 16h08

ok merci.
je veux cliquer sur resolu mais je ne vois pas le bouton. merci

script VBS pour suprimer un fichier selon la date de création

VBScript

Discussions similaires

Partager

Partager