lister une arborescence

Version imprimable

bojou,
je tente de lister l'arborescence du repertoire MOB et de recuperer les fichier aux extention .pst puis de les placer dans un fichier txt, sans succer.
je liste bien les fichiers dans MOB mais pas dans les sous repertoires de MOB

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
Dim MyFile,ObjFichier
 
 
Set ObjFichier=CreateObject("scripting.FileSystemObject")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'pst' AND PATH='\\MOB\\'") 
 
Set MyFile = ObjFichier.OpenTextFile("c:\extention\testFile.txt",2,true)
 
 
 
For Each objFile in ColFiles
 
 
	If Colfiles.count = 0 Then
	Set MyFile = ObjFichier.OpenTextFile("c:\extention\testFile.txt",2,true)
	MyFile.WriteLine("pas de fichier ")
	MyFile.close
	End If
 
 
MyFile.WriteLine(objFile.name)
Wscript.Echo objFile.Name
Next
 
MyFile.close

Bojou itou,

ton script ne va pas chercher dans les arborescences, tu dois pour chaque répertoire trouvé effectuer une nouvelle requete.
Voici un exemple qui recherche tous les .VBS qui sont dans C:\Temp

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
Tag = 0
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
strFolderName = "C:\Temp"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("C:\Scripts\Test.txt")
 
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")
 
WScript.Echo strFolderName
objTextFile.WriteLine strFolderName
For Each objFile in colFiles
    If objFile.Extension = "vbs" Then
       Tag = 1
       WScript.Echo objFile.FileName 
       objTextFile.WriteLine objFile.FileName 
    End If
Next
If Tag = 0 Then
   objTextFile.WriteLine "pas de fichier "
End If
Tag = 0
 
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")             
 
    WScript.Echo strFolderName
    objTextFile.WriteLine strFolderName
    For Each objFile in colFiles
        If objFile.Extension = "vbs" Then
           Tag = 1
           WScript.Echo objFile.FileName 
           objTextFile.WriteLine objFile.FileName 
        End If
    Next
    If Tag = 0 Then
       objTextFile.WriteLine "pas de fichier "
    End If
    Tag = 0
    GetSubFolders strFolderName
    Next
End Sub

Après, pour répondre à ton besoin, ce ne devrait pas etre trop dur à adapter...

A++

30/04/2008, 15h16
micka180

merci je vais bosser sur ce que tu m'a fourni

merci j'ai une fonction pas mal la voici

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
 
 
Function ScanRep(source, FileExt)
	Dim oFso,objExt
	Dim odirectory
	Dim explDirectory
	Dim ofiles
	Dim explFile
	Dim subDirectory
 
	Set oFso = CreateObject("scripting.fileSystemObject")
 
	If ofso.FolderExists(source) Then
		Set odirectory = oFso.GetFolder(source)
		Set ofiles=odirectory.Files 
		For Each explFile In ofiles
			If Ucase(oFso.GetExtensionName(explFile.Name))= FileExt  Then
			write_log(odirectory.Path &"\" &explFile.Name & ";" & UCase(Right(explFile.Name,4-(Instr(Right(explFile.Name,4),".")))) & ";" & explFile.DateLastModified & ";" & explFile.DateLastAccessed & ";" & Round(explFile.Size/1024))
			Else
			End If		
		Next
 
	Set subDirectory = odirectory.SubFolders
 
		For Each explDirectory In subDirectory
			ScanRep explDirectory.Path, WScript.Arguments(1)
		Next
	End If
 
End Function

Citation:

Envoyé par RadPAT

Bojou itou,

ton script ne va pas chercher dans les arborescences, tu dois pour chaque répertoire trouvé effectuer une nouvelle requete.

C'est juste

Citation:

Envoyé par RadPAT

Voici un exemple qui recherche tous les .VBS qui sont dans C:\Temp

Ca me parait bien compliqué, non ?
Et l'utilisation de WMI est bien plus longue à l'exécution que le FSO

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
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO, oFld, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
stRep = "C:\~Temp"
 
If oFSO.FolderExists(stRep) Then
  Set MyFile = oFSO.OpenTextFile("c:\testFile.txt",ForWriting, true)
  '-- On traite le répertoire racine
  GetTextFile oFSO.GetFolder(stRep)
 
  '-- Ensuite on boucle sur tous les sous-répertoires
  For each oFld in oFSO.GetFolder(stRep).SubFolders
        GetTextFile oFld
  Next
  MyFile.close
  Wscript.Echo "FIN"
End If
 
Sub GetTextFile (Folder)
    For each oFile in  Folder.Files	
        If Right(oFile.Name, 4) = ".txt"  Then
            MyFile.WriteLine(oFile.Name)
            Wscript.Echo oFile.Name
        End If
    Next
End Sub