Discussion :

[guiguiomr]

Bonjour,

J'ai un problème à résoudre que voici:

Sur un serveur windows2003, j'ai un dossier particulier qui contient des sous dossiers par utilisateurs et ces sous dossiers se remplissent à intervalle régulier. Il faut y supprimer certains fichiers portant une extension connue.

Or les scripts de base sous 2003 ne permettent apparemment pas de faire ce genre de tri, ou alors je n’ai pas vu comment!

Donc j'ai pensé que ça serait faisable en VBS mais je n'y ai pas touché depuis au moins 4 ans...

Avez-vous des solutions?

Merci d'avance
Guigui

[ced600]

Or les scripts de base sous 2003

De quel script parles tu ?

[guiguiomr]

Les commandes ms-dos comme le bash pour unix!

[ced600]

as tu fais une recherche sur ce forum ?

[RadPAT]

Salut,

va voir cet article :

http://www.microsoft.com/technet/scr...7/hey0129.mspx

A++

[ced600]

De façon générale l'objet FileSystemObject t'aideras à faire cela.

[guiguiomr]

J'ai fais une recherche, mais je ne trouve pas comment parcourir plusieurs répertoires, là j'arrive à en parcourir qu'un seul

Mais merci pour vos réponses

[RadPAT]

Pour parcourir tous les répertoires et sous répertoires, va voir ici :

http://www.microsoft.com/technet/scr...4/hey1020.mspx

A++

[guiguiomr]

Si quelqu'un a d'autres pistes, qu'il n'hésite pas Et merci à RadPAT pour les réponses

[ced600]

Je suis un fantome. bouh !

[RadPAT]

Je suis un fantome. bouh !

Quelqu'un a parlé ?



Tiens tu peux essayer ceci, ca supprime tous les .VBS du dossier c:\temp et de ses sous dossiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
strFolderName = "C:\Temp"
 
Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")
 
Set colFiles = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='" & strFolderName & "'} Where " _
        & "ResultClass = CIM_DataFile")
 
For Each objFile in colFiles
    If UCase(objFile.Extension) = "VBS" Then
        WScript.Echo strFolderName & "\" & objFile.FileName & "." & objFile.Extension
        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
 
    Set colFiles = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_Directory.Name='" & strFolderName & "'} Where " _
            & "ResultClass = CIM_DataFile")
 
    For Each objFile in colFiles
        If UCase(objFile.Extension) = "VBS" Then
            WScript.Echo strFolderName & "\" & objFile.FileName & "." & objFile.Extension
            objFile.Delete
        End If
    Next
 
        GetSubFolders strFolderName
    Next
End Sub

A++