Vider les dossiers temp et recent

Soyez le premier à donner votre avis sur cette source.

Vue 5 097 fois - Téléchargée 543 fois

Télécharger le projet
Commenter

Description

Les répertoires "Recent" et "Temp" contiennent des fichiers, des dossiers et/ou des raccourcis vers les fichiers ou dossiers ouverts (programmes ou autres).
A mesure qu'on travaille, la taille de ces dossiers augmente jusqu'à devenir encombrante. les fichiers et dossiers dans ces deux répertoires sont en fait superflus et ne servent pratiquement à rien.
Cet outil, sous forme de console, peut les vider à chaque démarrage de Windows.
Mais l'ennuie est que certains programmes d'installation laissent des fichiers dans le répertoire "Temp" qui seront utilisés pour la finalisation après un redémarrage demandé par l'installation. Dans un tel cas de figure, on doit supprimer l'entrée créée dans la base du registre relative au lancement de l'outil "DeletAtStartup.exe". Cette clé est la suivante:
HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices\DeletAtStartup.exe

ATTENTION : SUPPRIMER UNIQUEMENT LA VALEUR "DeletAtStartup.exe"

Source / Exemple : 


Option Explicit

Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Type SHITEMID
    cb As Long
    abID As Byte
End Type
Type ITEMIDLIST
    mSID As SHITEMID
End Type
Const CSIDL_RECENT = &H8
Const NOERROR = &H0
Const VER_PLATFORM_WIN32_NT = 2

Dim Obj As Object
'Const Key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\"
Const Key = "HKLM\Software\Microsoft\Windows\CurrentVersion\"

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim FSO As New FileSystemObject, FF&
Const WM_CLOSE = &H10
Const SW_SHOWMINNOACTIVE = 7
Private Function GetSpecialfolder(CSIDL As Long) As String
    Dim Ret&
    Dim IDL As ITEMIDLIST, Path$
    ' Retourne un dossier (SpecialFolder)
    Ret = SHGetSpecialFolderLocation(100, CSIDL, IDL)
    If Ret = NOERROR Then
        'Crée un tempon
        Path$ = Space$(512)
        ' Retourne un chemin à partir de  IDList
        Ret = SHGetPathFromIDList(ByVal IDL.mSID.cb, ByVal Path$)
        '  Supprime les espaces de fin
        GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        Exit Function
    End If
    GetSpecialfolder = ""
End Function

Private Function IsWinNT() As Boolean
    Dim ThisOS As OSVERSIONINFO
    ThisOS.dwOSVersionInfoSize = Len(ThisOS)
    GetVersionEx ThisOS
    IsWinNT = (ThisOS.dwPlatformId = VER_PLATFORM_WIN32_NT)
End Function
Private Function batFile() As String
   batFile = IIf(Right(App.Path, 1) = "\", App.Path + "DelTmp.bat", App.Path + "\DelTmp.bat")
End Function
Private Function GetShortPath(strFileName As String) As String

    Dim lngRes As Long, strPath As String
    ' Crée un tempon
    strPath = String$(165, 0)
    '  Retourne le nom court du chemin
    lngRes = GetShortPathName(strFileName, strPath, 164)
    '  Supprime les espaces de fin
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub CloseThisWindow(Ret As String)
   Dim WinWnd&
    '  Recherche la fenêtre
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "Ne peut trouver la fenêtre ...": Exit Sub
    ' Affiche la fenêtre
    ShowWindow WinWnd, SW_SHOWMINNOACTIVE 'SW_SHOWNORMAL
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub
Private Sub WaitToClose()
   Dim OK As Boolean
      OK = False
      Do
        OK = FindWindow(vbNullString, "Terminé - DelTmp")
        DoEvents
      Loop Until OK
      If OK Then
         CloseThisWindow ("Terminé - DelTmp")
         Sleep 500
         DeleteFile batFile
      End If
End Sub
Private Sub EcritFich(Optional OK1 As Integer = False, Optional OK2 As Integer = False)
    Dim sPath As String, strSave As String
    
    Dim strTemp As String
     '   Crée une chaîne tempon
    strTemp = String(100, Chr$(0))
    ' Retourne le chemin temporaire
    GetTempPath 100, strTemp
    '  Nettoyage du tempon des espaces indésirables
    strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)

    strSave = String(200, Chr$(0))
    '  Retourne le chemin du dossier Windows
    sPath = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
    FF = FreeFile
    ' Ecrit des données dans un fichier de commandes qui _
      sera exécuté par la suite.
      '   "Nul" est ajouté pour éviter l'ffichage de la liste _
        des fichiers ou dossiers supprimés
    Open batFile For Output As #FF
            Print #FF, "@Echo ON"
            If OK1 Then
            Print #FF, "@DelTree /Y " + GetShortPath(strTemp) + "* > Nul"
            End If
        If Not IsWinNT Then
            If OK2 Then
            Print #FF, "@DelTree /Y " + sPath + "\Recent\* > Nul"
            End If
        Else
           If OK2 Then
            Print #FF, "@DelTree /Y " & GetShortPath(GetSpecialfolder(CSIDL_RECENT)) + "\* > Nul"
           End If
        End If
     Close #FF
End Sub
Public Sub Main()
   Dim Fold$, AppName$, Apath$
   
   AppName = UCase(App.EXEName) + ".EXE"
   ' S'assure que le chemin se termine par "\"
   Apath = IIf(Right(App.Path, 1) = "\", UCase(App.Path), UCase(App.Path) + "\")
   ' Crée un objet pour accéder au registre et crée une _
     entrée pour le lancement du programme au démarrage _
    de WINDOWS
   Set Obj = CreateObject("Wscript.Shell")
   With Obj
     .RegWrite Key & "RunServices\" & AppName, Apath & AppName
   End With
   Call EcritFich(True, True)
   Fold = GetSpecialfolder(CSIDL_RECENT)
   Shell batFile, vbHide
   Call WaitToClose
End Sub

Conclusion :


Trop de dossiers et fichiers inutiles sont gênant pour un antivirus pendant l'analyse et même pour le système.
Cet outil débarrasse l'utilisateur de ces superflus et fait le travail à sa place.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
10 juil. 2009 à 00:16
DeleteAtStartup serait plus juste ...
VBsearch Messages postés 50 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 22 août 2009
10 juil. 2009 à 01:11
Commentaire à propos du commentaire de ghuysmans99:
Il ne s'agit pas d'une ignorance mais c'est parce j'ai un autre fichier intitulé "DeleteAtStartup". L'élision de la lettre "e" c'était juste pour différencier car deux fichiers ou dossiers de même nom ne peuvent pas coexister !!!!!!!!!!!!
Merci quand-même
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
10 juil. 2009 à 08:45
Si c'est ça, nomme le répertoire des source et ton projet DeleteAtStartup, et compile l'EXE en DelAtStartup.
C'est quand même plus joli, non ?
VBsearch Messages postés 50 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 22 août 2009
10 juil. 2009 à 13:32
OK mais le choix du nom n'influe aucunement sur la fonctionnalité. Crois-moi j'en un qui porte le nom que tu as suggéré.
Encore une fois MERCI pour les commentaires, j'en tiendrais compte dans mes travaux futures.
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014
11 juil. 2009 à 11:59
Bonjour;
" Set Obj = CreateObject("Wscript.Shell")"
" With Obj"
" .RegWrite Key & "RunServices" & AppName, Apath & AppName"
" End With "

A éviter gracieusement ce type d'écriture dans la base de registre.
Windows et cie(norton...) risquent de le detecter comme intrus alors à proscrite absolument.

Bonne continuation.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (VBsearch)