Boucle tant que ..

Version imprimable

Boucle tant que ..

bonjour

je cherche a cree un bout de script (qui en rejoindra un autre plus tard )

pour effacer tous les dossier vides d'un repertoire donné
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Set FSO = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") ShowSubFolders FSO.GetFolder("d:\script") Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders If Subfolder.Size = 0 Then objFSO.DeleteFolder Subfolder End If ShowSubFolders Subfolder Next End Sub
ce code efface bien un dossier vide
jai rajouté sa pour rapeller la fonction
Code:

1 2 3 4 5 For Each Subfolder in Folder.SubFolders ShowSubFolders next
mais visiblement sa ne marche pas quelqun aurait une idée ?,

merci d'avance

13/09/2006, 15h17
ced600
"ShowSubFolders" prends en paramètre un "Folder" lorsqu'il est appellé, mais toi tu n'en mets pas !!!
Essaye ça :
Code:

1 2 3 4 For Each Subfolder in Folder.SubFolders objFSO.DeleteFolder Subfolder ShowSubFolders Subfolder Next
Mais attention, cela détruit "d:\script" et tous ses sous dossier.

Le code que tu utilises rappel "ShowSubFolders" de façon recursif.
Voyant que tu ne maitrise pas trop la programmation, es tu sur de vouloir utiliser la récursivité ? Si elle est mal pensé et s'il y a une erreur dans la fonction, cela peut être assez dangereux !!!
13/09/2006, 15h56
darksnake

merci je commencait a patauger

je cherchait bien a faire une recusive ( executer tant que il reste un dossier vide)

mais il ne faut pas toucher au dossier racine

c'est pour vider un dossier partagé commun a plusieur utilisateur (un "transit")
mais pas touche au dossier racine :D

merci beucoup de ton aide ^^

erreur d'execution

bonjour

et bien voila jai encore un probleme grace a l'aide de cedric mon bout de code pour effacer les dossier vides marche nikel mais quand le je l'ajoute au mon script pour effacer les fichier de + de X jour et bin il me met une erreur

""erreur VBscript l'execution na pas pu s'effectuer""
pour le code

Code:

1
2
3
4
5
6
 
For Each objFile in colFiles  <== c'est ici 
Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)> 15 then
'Wscript.Echo objFile.Name & chr (10) & objReadOnlyFile.DateLastModified
objFile.delete

et voila le code entier au cas ou

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88


    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 à 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 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 & "'")

   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

       objFile.delete
   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")

       For Each objFolder2 in colSubfolders2
           strFolderName = objFolder2.Name
           'Wscript.Echo
           'Wscript.Echo 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 & "'")

           For Each objFile in colFiles <=== c'est la 
           Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
           if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)> 15 then
               'Wscript.Echo objFile.Name & chr (10) & objReadOnlyFile.DateLastModified
               objFile.delete

             end if

           Next

           GetSubFolders strFolderName
       Next
   End Sub


   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = FSO.GetFolder("d:\perso")


    For Each subfolder in Folder.SubFolders
        If Subfolder.Size = 0 Then
        objFSO.DeleteFolder Subfolder
        End If
    Next

26/09/2006, 09h07
darksnake

Up je patauge toujour
26/09/2006, 10h10
ced600

Au vu de ton erreur et de où elle se produit, il me semblerait que ta collection de fichier est vide. Peut être que cela est du à une mauvaise valeur de strPath. Essaye en mettant dans le code, à la place de strPath, le chemin du répertoire où tu fait tes opérations. Si le code marche alors c'est que strPath est mal construit.