Cuestión : Adición del reloj fechador al archivo outfile

Hola, el

I tiene un vbscript que consiga la versión del archivo de los archivos locales diffrerent del serval, cree un archivo de salida, después la versión del archivo del
puts en una secuencia del mensaje y escriba a un archivo del ouput. ¿Cómo agrego un reloj fechador al archivo de salida? el

This es lo que tengo: el

' crea el objFSO = el

'Create del sistema de ficheros Object
Set de CreateObject (“Scripting.FileSystemObject”) la salida File
Set objOutputFile = el

' de objFSO.CreateTextFile (strOutputFile, verdad, verdad) consigue la versión de un archivo y la puso en un string
For i = 0 del mensaje al
de UBound (arrFiles) si el extremo If
Next

' del
de los arrFiles del then
ProcessFile del "" del <> de los arrFiles (i) (i) cierra el strMsg dévil (strFile) del
de File
objOutputFile.Close

Function ProcessFile de la salida, strVersion, timestamp
“se cerciora de el exists
del archivo si objFSO.FileExists (strFile) = strMsg falso de Then
= strFile y” - archivo no encontrado. el “
Else
” consigue la versión del archivo y la puso en un strVersion del string
del mensaje = un strtimestamp del
de objFSO.GetFileVersion (strFile) = un strMsg del
del tiempo () = strFile y ““y el extremo If

del strVersion y del strtimestamp
“escribe la secuencia del mensaje al strMsg

de Screen
Wscript.Echo” escribe la secuencia del mensaje al &vbCRLF
End Function del strMsg del
objOutputFile.Write del archivo de salida (con un CR LF) class= del

Respuesta : Adición del reloj fechador al archivo outfile

intentar esto
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

'Crear el objeto del sistema de ficheros
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)

'Crear el archivo de salida
Fijar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdad, verdad)

'Conseguir la versión de un archivo y ponerla en una secuencia del mensaje
Para i = 0 a UBound (arrFiles)
                si "" de los arrFiles (i <> ) entonces
                                arrFiles de ProcessFile (i)
                Terminar si
Después

'Cercano el archivo de salida
objOutputFile.Close

Función ProcessFile (strFile)
                strMsg dévil, strVersion, reloj fechador
                'Cerciorarse de que exista el archivo
                Si objFSO.FileExists (strFile) = falso entonces
                                strMsg = strFile y “- archivo no encontrado. ”
                
                'Conseguir la versión del archivo y ponerla en una secuencia del mensaje
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = tiempo ()
                                strMsg = strFile y ““y strVersion y strtimestamp
                Terminar si

                'Escribir la secuencia del mensaje a la pantalla
                strMsg de Wscript.Echo

                'Escribir la secuencia del mensaje al archivo de salida (con un CR EL LF)
                objOutputFile.Write ahora y “: ” y &vbCRLF del strMsg
Función del final
Otras soluciones  
 
programming4us programming4us