Supprimer des sous dossiersRésolu

Question

Bonjour,
je cherche a supprimer par un script vbs et tache planifié des sous dossiers (et tout ce qu'il y a à l'interrieur) dont la date de création est supperieure à 60 jours.

Merci de vos réponses

L0acK02 · Accepted Answer

En fait en prenant un peu de temps j'ai pu me faire un petit truc, je le met sur le forume ça pourra toujours aider...

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("votre chemin du repertoire parent")
Set fc = f.SubFolders
datenow=date
For Each f1 in fc
date1=f1.DateCreated
if DateDiff("d", date1, datenow) >60 then
f1.delete
end if
Next

cs_rt15 · Answer

FileSystemObject.

C'est le nom de l'objet que je crois qu'il faut que tu utilise.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/VBRef98/html/vbmscLROverview.asp

puis "Language Reference"
puis "Objects"
puis "F"
puis "FileSystemObject Object"

La liste des méthodes (actions) et propriétés est alors accessible.

Si tu n'aimes pas l'Anglais, tape rechercher FileSystemObject dans rechercher un peu plus haut.

cs_JMO · Answer

Bonsoir,

Sur ce site, comme Google, il y a l'input "Recherche"....merci Nix.
En farfouillant, on trouve tout, ou presque.
Ci-dessous, un code WMI que j'ai trouv&#233; sur le forum.

'******************************************************************************* 
' Script permettant D 'effacer les fichiers Qui date de plus de 15 jours 
' Avec interface Graphique 
' Script VBS  "http://www.vbfrance.com/code.aspx?id=33195 de mohax007"
'******************************************************************************* 
  
  
strComputer = "." 
  
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objShell = CreateObject("Shell.Application")         
Set objFolder = objShell.BrowseForFolder _ 
    (WINDOW_HANDLE, "Selectionner le dossier &#224; traiter :", NO_OPTIONS, ".") 
Set objFolderItem = objFolder.Self 
strFolderName = objFolderItem.Path 
  
Set colSubfolders = objWMIService.ExecQuery _ 
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ 
        & "Where AssocClass = Win32_Subdirectory " _ 
            & "ResultRole = PartComponent") 
  
'Wscript.Echo "R&#233;pertoire: " & strFolderName 
 
arrFolderPath = Split(strFolderName, "") 
strNewPath = "" 
For i = 1 to Ubound(arrFolderPath) 
    strNewPath = strNewPath & "\" & arrFolderPath(i) 
Next 
strPath = strNewPath & "\" 
  
Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from CIM_DataFile where Path = '" & strPath & "'") 
 'Dim count1, count2, count3
 For Each objFile in colFiles 
  Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
     'Wscript.Echo objFile.Name & chr (10) & objReadOnlyFile.DateLastModified 
  If DateDiff("d",objReadOnlyFile.DateLastModified ,Date) <15 then 
      Else
       'MsgBox objFile.Name
        'count2 = 1 + count2
        'count1 = " compteur1 " & count2 & "    " & objFile.Name &vbCrLf& count1 
         count1 = "R&#233;pertoire: " & objFile.Name &vbCrLf& count1 
  End If
Next
 


For Each objFolder in colSubfolders 
    GetSubFolders strFolderName 
Next 
  
Sub GetSubFolders(strFolderName) 
    Set colSubfolders2 = objWMIService.ExecQuery _ 
        ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ 
            & "Where AssocClass = Win32_Subdirectory " _ 
                & "ResultRole = PartComponent") 
  
'Dim count3
'count3 = 1
    For Each objFolder2 in colSubfolders2 
        strFolderName = objFolder2.Name 
        'Wscript.Echo "Sous-r&#233;pertoire:" & objFolder2.Name
        arrFolderPath = Split(strFolderName, "") 
        strNewPath = "" 
        For i = 1 to Ubound(arrFolderPath) 
            strNewPath = strNewPath & "\" & arrFolderPath(i) 
        Next 
        strPath = strNewPath & "\" 
  
        Set colFiles = objWMIService.ExecQuery _ 
            ("Select * from CIM_DataFile where Path = '" & strPath & "'") 
  'count3 = 1
          For Each objFile in colFiles 
        Set objReadOnlyFile = objFSO.GetFile(objFile.Name) 
        'MsgBox count3
    If DateDiff("d",objReadOnlyFile.DateLastModified ,Date) <15 then 
       Else
'MsgBox count1 & " " & count3
         'count3 = count3 + 1
         'count1 = count3 & " compteur2 " & count3 & "    " & objFile.Name &vbCrLf& count1 
         count1 = "Sous-r&#233;pertoire: " & objFile.Name &vbCrLf& count1
    End If
   Next
  
        GetSubFolders strFolderName 
    Next
  End Sub
MsgBox  "Les fichiers suivants viennent d'&#234;tre supprim&#233;s car non modifi&#233;s depuis 15 jours:"&vbCrLf&vbCrLf& count1 &vbCrLf 
MsgBox "fin de ce script" 
Set objWMIService = Nothing 
Set objFSO = Nothing
Set objShell = Nothing

Supprimer des sous dossiers

3 réponses

Discussions similaires