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