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 :
- ' le fichier se trouve à l'emplacement suivant : moncheminUserByRoleList.XML
- rep_source = "monchemin"
- ' on créé une référence au fichier userbyrolelist.txt dérivé du fichier userbyrolelist.xml fourni par le système technique xx
- Set f_source = fso_filesystem.OpenTextFile (rep_source + "userbyrolelist.xml", ForReading, false)
- '---------------------------------------------------------------------------
- '----- Récupération de la date de modification du fichier XML---------------
- '---------------------------------------------------------------------------
- Function ShowFileInfo(filespec)
- Dim fso, f_file
- Set fso = CreateObject("Scripting.FileSystemObject";)
- Set f_file = fso.GetFile(filespec)
- ShowFileInfo = "Fichier Modifié: " & f_file.DateLastModified
- End Function
- dim f1
- Set f1 = fso.CreateTextFile("bt1sqkwzf$CAeTrust AdminDataXMLdateversionXML.txt", True) Pour cette ligne Cscript me renvoit cette erreur:VBScript runtime error: Object required: 'fso'
- f1.writeline ("ShowFileInfo(f_source)";)
- 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