Tester /récupérer date de derniere modif fichier

Tester /récupérer date de derniere modif fichier - VB/VBA/VBS - Programmation

Marsh Posté le 19-11-2007 à 15:31:46    

Bonjour, je suis un gros n00b en développement, je cherche à renvoyer la propriété DateLastModified d'un fichier via un VBS, dans un .txt créé à l'occasion.
 
Voiçi mon code :
 

Code :
  1. ' le fichier se trouve à l'emplacement suivant : moncheminUserByRoleList.XML
  2. rep_source = "monchemin"
  4. ' on créé une référence au fichier userbyrolelist.txt dérivé du fichier userbyrolelist.xml fourni par le système technique xx
  5. Set f_source = fso_filesystem.OpenTextFile (rep_source + "userbyrolelist.xml", ForReading, false)
  7. '---------------------------------------------------------------------------
  8. '----- Récupération de la date de modification du fichier XML---------------
  9. '---------------------------------------------------------------------------
  10. Function ShowFileInfo(filespec)
  11. Dim fso, f_file
  12. Set fso = CreateObject("Scripting.FileSystemObject";)
  13. Set f_file = fso.GetFile(filespec)
  14. ShowFileInfo = "Fichier Modifié: " & f_file.DateLastModified
  15. End Function
  17. dim f1
  18. Set f1 = fso.CreateTextFile("bt1sqkwzf$CAeTrust AdminDataXMLdateversionXML.txt", True) Pour cette ligne Cscript me renvoit cette erreur:VBScript runtime error: Object required: 'fso'
  19. f1.writeline ("ShowFileInfo(f_source)";)
  20. f1.close


Un peu d'aide sans trop changer le code serait la bienvenue !!


Message édité par canardtichaud le 19-11-2007 à 15:33:34

---------------
[>_] Microsoft 'PoSH'  addicted
Reply

Marsh Posté le 19-11-2007 à 15:31:46   

Reply

Marsh Posté le 19-11-2007 à 15:54:58    

Ton objet fso est créé dans la fonction, c'est normal que ça gueule si tu essayes de t'en servir en dehors de celle-ci.


---------------
Tar | Librarything
Reply

Marsh Posté le 19-11-2007 à 15:59:22    

je bouge ma ligne 12 en dehors de la fonction quoi...ok je regarde ça, merci


---------------
[>_] Microsoft 'PoSH'  addicted
Reply

Marsh Posté le 19-11-2007 à 16:23:07    

ça marche merci...d'ailleurs pas besoin d'une fonction car je ne rappelle pas ces lignes de code plus loin....


---------------
[>_] Microsoft 'PoSH'  addicted
Reply

Sujets relatifs:

Leave a Replay

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