Aidez UN gro Boulet en VbScript

Dim Res
Res = MsgBox ("Vous avez choisi " & S & Chr(13) & "Etes-vous sûre ?" ,vbYesNo + vbQuestion,"Menage des HD" )
Select Case Res
	Case vbYes
	'Traitement nettoyage des disques
	'Utilise la fonction system()
	Case vbNo
	'Exit du programme
End Select

Set shell = WScript.CreateObject("WScript.Shell") //Création d'un objet
Shell.run ("%SystemRoot%\system32\cmd32.exe") //Utilisation des proprietés

        dim objShell
        dim Racine: Racine = 17
        dim objFolder
        dim FolderPath
        dim FolderFlag: FolderFlag = 0
        dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
        dim lechemin, nbrdel,nbrtemp: nbrtemp=0
        
        function FolderChoice(FolderPath, FolderFlag)
                Entry = "~= L'HDD Ménage =~" & vbcrlf & vbcrlf & "Suppression des fichiers .tmp"
                on error resume next
                FolderFlag = 1
                set objShell = CreateObject("Shell.Application")
                set objFolder = objShell.BrowseForFolder(0, Entry, 0, Racine)
                
                if (not objFolder is nothing) then
                        FolderPath = objFolder.ParentFolder.Parsename(objFolder).Path

                        charpos=InStr(objFolder.Title, ":")
                        If charpos>0 Then FolderPath=Mid(objFolder.Title,charpos-1,2) & "\"

                else
                        wscript.quit
                end if
                set objFolder = nothing
                set objShell = nothing
        end function
        
        function BoucleFolder(FolderPath, FolderFlag)
                if FolderPath="" then
                        if FolderFlag <> 0 then
                                msgbox _
                                        "Nous ne savons pas traiter les dossiers spéciaux..." & vbcrlf &_
                                        "Veuillez passer par la racine du lecteur.", 48, "~= L'HDD Ménage =~"
                        end if
                        FolderChoice FolderPath,FolderFlag
                        BoucleFolder FolderPath,FolderFlag
                end if
        End Function
        
        function xplor_rep (lechemin, nbrdel)
                on error resume next 'pour éviter les " Permission : accès refusé ".
                dim orep, osubrep, ofile
                set orep = FSO.getfolder(lechemin)
                set osubrep = orep.subfolders
                		
                for each ofile in osubrep
                        xplor_rep ofile.path, nbrtemp
                next
                
                dim orepfnd, osubfile, osubfdat, gettemp
                set orepfnd = FSO.getfolder(lechemin)
                set osubfile = orepfnd.files
                
                for each osubfdat in osubfile
                        gettemp = right(osubfdat, 4)
                        
                        if gettemp = ".tmp" then
                                FSO.DeleteFile look, True
                                nbrdel = nbrdel + 1
                        end if
                        
                next
        end function

        BoucleFolder FolderPath,FolderFlag
        	
        Res = MsgBox _
                ("Les fichiers .tmp vont être supprimés de " & FolderPath & vbcrlf &_
                 "Etes-vous sûr ?" ,36,"~= HDD Ménage =~")
        Select Case Res
                Case VbYes
                        msgbox _
                                "Cette opération peut prendre plusieurs minutes, selon la taille de votre système..." & _
                                        vbcrlf & vbcrlf & _
                                "Vous serez averti à la fin du processus",64, "~= L'HDD Ménage =~"
                        xplor_rep FolderPath,nbrtemp
                        msgbox _
                                nbrtemp & " fichier(s) virtuellement supprimé(s) de " & FolderPath &_
                                         " et ses sous-dossiers." & vbCrLf & vbcrlf &_
                                "A bientôt.",16,"~= L'HDD Ménage =~"
                Case vbNo
                        wscript.quit
        End Select