je fais mes premiers pas en programmation bat, ainsi je viens vous soummettre un script pour correction. merci de le lire et apporter les correction necessaires
Code : Tout sélectionner
Echo off
cls
Set MyDate = "09/09/2010 12:00:00"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set pathh=%APPDATA%\Microsoft\Outlook
Echo pathh=%pathh%
pause
call : FindFile FSO, pathh, "nk2"
: findFile (FSO, Folder, Ext)
Echo voici le chemin %Folder%
Set FSO_Folder=FSO.GetFolder(Folder)
For Each FSO_File In FSO_Folder.Files
If FSO.GetExtensionName(FSO_File.Path))=Ext Then
call : deletefile FSO_File
Next
Set FSO_Folder = Nothing 'On libère la variable
Set findFile = Nothing
:deletefile (NK2)
set ddate==CDate(MyDate)
If ((NK2.DateCreated) > ddate) Then
Echo Rien à supprimer. Le fichier a été crée le %NK2.DateCreated%
pause
Else
Echo Le fichier %NK2.Path% va être supprimé! Le fichier a été crée le %NK2.DateCreated%
pause
Del NK2
End If
Set NK2 = Nothing
goto :eof