script pour correction
Posté : 08 sept. 2010 23:08
bonjour,
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
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