Eysinem | Bonjour,
J'utilise ce script pour lister les fichiers qui sont dans les répertoires des utilisateurs de l’entreprise. En l’occurrence je ne cherche que les fichiers .pst
L'arborescence ressemble à celle-ci:
Dossier Privé
+ User 1
+ User 2
+ User 3
Je lance mon script à la racine du "dossier privé" et il cherche tout seul dans les sous-répertoires.
Sur certains serveur, j'ai une erreur. Je pense que ça doit venir des droits sur les dossiers, mais je n'en pas sûr.
Code:
Code :
- 'List files
- Const ForWriting = 2
- Const ForAppending = 8
- Const outFile = "Liste PST.txt"
- Dim oFilesys, oFiletxt, sFilename, sPath, outText
- Set oFilesys = CreateObject("Scripting.FileSystemObject" )
- Set oFiletxt = oFilesys.CreateTextFile(outFile, True)
- sPath = oFilesys.GetAbsolutePathName(outFile)
- sFilename = oFilesys.GetFileName(sPath)
- REM outText = vbcrlf & "List files " & date & vbcrlf
- REM outText = outText & "---------------------------" & vbcrlf & vbcrlf
- 'Get script path
- sn = Wscript.ScriptName
- fn = Wscript.ScriptFullName
- path = Replace(fn, "\" & sn, "" )
- REM outText = outText & path & vbcrlf & vbcrlf
- outText = outText & List(path, "" )
- oFiletxt.WriteLine(outText)
- oFiletxt.Close
- Function List(directory, space)
- Set fsoFolder = CreateObject("Scripting.FileSystemObject" )
- Set folder = fsoFolder.GetFolder(directory)
- Set subfolders = folder.SubFolders
- Set subfiles = folder.Files
- out = ""
- for each objFolder in subfolders
- if space = " " Then
- out = out & vbcrlf
- end if
- REM out = out & space & " + " & objFolder.Name & vbcrlf
- out = out & List(objFolder.Path, space & " " )
- next
- for each objFile in subfiles
- sExtension = oFilesys.GetExtensionName (objFile.Name)
- DateModified = objFile.DateLastModified
- Size = objFile.Size
- If sExtension="pst" Then
- out = out & folder & ";" & objFile.Name & ";" & DateModified & ";" & Size & VbCrLf
- REM msgbox(out)
- End If
- next
- if subfiles.count > 0 then
- out = out & vbcrlf
- End if
- List = out
- End Function
|
Code erreur :
 |
