CheminRepertoireAExplorer = InputBox("Entrez le chemin du répertoire","Chemin du répertoire","C:\Documents and Settings")

For Each MonFolder In objFolder.SubFolders
	UneCommande = "forfiles /p  """ & MonFolder.Path & "\Local Settings\Temporary Internet Files\OLK1" & """ /s /m *.* /d -3 /c ""cmd /C del /Q /F @FILE"""
	objTextFile.WriteLine(UneCommande) 'Ecriture de la commande dans le fichier BAT
Next