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

Version imprimable

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:

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

20/07/2010, 22h29
l_autodidacte

Remplace ce

Code:

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

par celui-ci:

Code:

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

Salut

Code:

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

Citation:
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:

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:

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

ça marche toujours pas.

Code:

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

J'espère que ce code va marcher pour vous :ccool:
Juste tu enlève le MsgBox ;)

Code:

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

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:

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

Code:

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à

Citation:

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

il ne faut pas mettre de guillemets

Citation:

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:

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

message d'ouverture de la discussion

Citation:

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]
Citation:
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:

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

21/07/2010, 16h08
maikess

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