Problème Scrit qui liste les fichiers

Problème Scrit qui liste les fichiers - VB/VBA/VBS - Programmation

Marsh Posté le 17-10-2013 à 10:11:52    

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 :
  1. 'List files
  3. Const ForWriting = 2
  4. Const ForAppending = 8
  5. Const outFile = "Liste PST.txt"
  7. Dim oFilesys, oFiletxt, sFilename, sPath, outText
  8. Set oFilesys = CreateObject("Scripting.FileSystemObject" )
  9. Set oFiletxt = oFilesys.CreateTextFile(outFile, True)
  10. sPath = oFilesys.GetAbsolutePathName(outFile)
  11. sFilename = oFilesys.GetFileName(sPath)
  14. REM outText = vbcrlf & "List files " & date & vbcrlf
  15. REM outText = outText & "---------------------------" & vbcrlf & vbcrlf
  17. 'Get script path
  18. sn = Wscript.ScriptName
  19. fn = Wscript.ScriptFullName
  20. path = Replace(fn, "\" & sn, "" )
  22. REM outText = outText & path & vbcrlf & vbcrlf
  24. outText = outText & List(path, "" )
  26. oFiletxt.WriteLine(outText)
  27. oFiletxt.Close
  29. Function List(directory, space)
  30. Set fsoFolder = CreateObject("Scripting.FileSystemObject" )
  31. Set folder = fsoFolder.GetFolder(directory)
  32. Set subfolders = folder.SubFolders
  33. Set subfiles = folder.Files
  36. out = ""
  37. for each objFolder in subfolders
  38.  if space = "   " Then
  39.   out = out & vbcrlf
  40.  end if
  41.  REM out = out & space & " + " & objFolder.Name & vbcrlf
  42.  out = out & List(objFolder.Path, space & "   " )
  43. next
  45. for each objFile in subfiles
  46.  sExtension = oFilesys.GetExtensionName (objFile.Name)
  47.  DateModified = objFile.DateLastModified
  48.  Size = objFile.Size
  49.  If sExtension="pst" Then
  50.   out = out & folder & ";" &  objFile.Name & ";" & DateModified & ";" & Size & VbCrLf
  51.   REM msgbox(out)
  52.   End If
  53. next
  55. if subfiles.count > 0 then
  56.  out = out & vbcrlf
  57. End if
  59. List = out
  60. End Function


 
Code erreur :
 
http://img15.hostingpics.net/thumbs/mini_118125Sanstitre.png

Reply

Marsh Posté le 17-10-2013 à 10:11:52   

Reply

Marsh Posté le 17-10-2013 à 12:36:19    

 
           Bonjour,
 
           effectivement, c'est pourtant clair vu le message d'erreur …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed