Questione : Aggiungendo timestamp alla lima outfile

Ciao, il

I ha un vbscript che ottiene la versione della lima delle lime locali diffrerent del serval, genera un archivio di uscita, quindi la versione della lima del
puts in una stringa del messaggio e scrive ad una lima del ouput. Come aggiungo un timestamp all'archivio di uscita? il

This è che cosa ho: il

'genera il objFSO di Object
Set del file system = il

'Create di CreateObject (“Scripting.FileSystemObject„) l'uscita File
Set objOutputFile =

'di objFSO.CreateTextFile (strOutputFile, allineare, allineare) ottiene la versione di una lima e la ha messa in uno string
For i = 0 del messaggio al
di UBound (arrFiles) se arrFiles (i) arrFiles del then
ProcessFile del "" del <> (l'estremità If
Next

'del i)
chiudono lo strMsg fioco (strFile) del
di File
objOutputFile.Close

Function ProcessFile dell'uscita, strVersion, il timestamp
“si assicura il exists
della lima se objFSO.FileExists (strFile) = strMsg falso di Then
= strFile & „ - Lima non trovata. “il
Else
„ ottiene la versione della lima e la ha messa in uno strVersion dello string
del messaggio = in uno strtimestamp del
di objFSO.GetFileVersion (strFile) = in uno strMsg del
di tempo () = strFile & ““& l'estremità If

dello strtimestamp
“scrive la stringa del messaggio allo strMsg

di Screen
Wscript.Echo„ scrive la stringa del messaggio al &vbCRLF
End Function dello strMsg del
objOutputFile.Write dell'archivio di uscita (con un CR LF) class= del

Risposta : Aggiungendo timestamp alla lima outfile

provare questo
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:

'Generare l'oggetto del file system
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)

'Generare l'archivio di uscita
Regolar objOutputFile = objFSO.CreateTextFile (strOutputFile, allineare, allineare)

'Ottenere la versione di una lima e metterla in una stringa del messaggio
Per i = 0 a UBound (arrFiles)
                se arrFiles (i) <> "" allora
                                arrFiles di ProcessFile (i)
                Concluder se
Dopo

'Vicino l'archivio di uscita
objOutputFile.Close

Funzione ProcessFile (strFile)
                strMsg fioco, strVersion, timestamp
                'Assicurar che la lima esista
                Se objFSO.FileExists (strFile) = falso allora
                                strMsg = strFile & “- lima non trovata. „
                Altrimenti
                'Ottenere la versione della lima e metterla in una stringa del messaggio
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = tempo ()
                                strMsg = strFile & ““& strVersion & strtimestamp
                Concluder se

                'Scrivere la stringa del messaggio allo schermo
                strMsg di Wscript.Echo

                'Scrivere la stringa del messaggio all'archivio di uscita (con un CR LF)
                objOutputFile.Write ora & “: „ & &vbCRLF dello strMsg
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us