Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1774 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème Scrit qui liste les fichiers

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème Scrit qui liste les fichiers

n°2206995
Eysinem
Posté le 17-10-2013 à 10:11:52  profilanswer
 

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


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

mood
Publicité
Posté le 17-10-2013 à 10:11:52  profilanswer
 

n°2207025
Marc L
Posté le 17-10-2013 à 12:36:19  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème Scrit qui liste les fichiers

 

Sujets relatifs
Problème zoom sur focus champ IOS7 solutions ou pas ?Problème avec les apostrophes
[Java] Liste chaînée - PileProblème avec les i++ et ++i
Problème simple de calculproblème de cote et de prise en charge du texte
MYSQL problème count via out joinProblème programmation VBA
problème VBA avec Find/ReplaceProbleme syntaxe ? [résolu]
Plus de sujets relatifs à : Problème Scrit qui liste les fichiers


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR