Lister/supprimer des fichiers avec une extension précise

Version imprimable

16/05/2008, 10h28
guiguiomr

Lister/supprimer des fichiers avec une extension précise

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
16/05/2008, 14h55
ced600

Citation:

Or les scripts de base sous 2003

De quel script parles tu ?
16/05/2008, 14h58
guiguiomr

Les commandes ms-dos comme le bash pour unix!
16/05/2008, 15h00
ced600

as tu fais une recherche sur ce forum ?
16/05/2008, 15h08
RadPAT

Salut,

va voir cet article :

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

A++
16/05/2008, 15h10
ced600

De façon générale l'objet FileSystemObject t'aideras à faire cela.
16/05/2008, 15h59
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:chin:
16/05/2008, 16h09
RadPAT

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

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

A++
19/05/2008, 16h59
guiguiomr

Si quelqu'un a d'autres pistes, qu'il n'hésite pas;) Et merci à RadPAT pour les réponses:D
20/05/2008, 08h25
ced600

Je suis un fantome. bouh !

Citation:

Envoyé par ced600

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:

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++