Frage : Hinzufügen des Zeitstempels outfile Akte

Hallo, haben

I ein vbscript, das die Aktenversion der diffrerent lokalen Akten des Serval erhält, eine Ausgabedatei, dann
puts Aktenversion in einer Mitteilungschnur verursacht und zu einer ouput Akte schreibt. Wie füge ich einen Zeitstempel der Ausgabedatei hinzu?

This ist, was ich habe:

' verursachen das Dateisystem Object
Set objFSO = CreateObject („Scripting.FileSystemObject“) das

'Create der Ausgang File
Set, das = objFSO.CreateTextFile objOutputFile ist (strOutputFile, zutreffend, zutreffend)

' erhalten die Version einer Akte und einsetzten sie in ein Mitteilung string
For I = 0 UBound (arrFiles) zum
, wenn arrFiles (i) <> "" then
ProcessFile arrFiles (i)
Ende If
Next

' das Ausgang File
objOutputFile.Close

Function ProcessFile (strFile)
schwache strMsg, strVersion, stellen timestamp
„das Akte exists
wenn objFSO.FileExists (strFile) = falsches Then
strMsg = strFile sicher u. “ - Akte nicht gefunden. „
Else
“ erhalten die Version der Akte und setzten sie in in in ein Mitteilung string
strVersion = objFSO.GetFileVersion (strFile)
ein strtimestamp = Zeit ()
ein strMsg = strFile ein u. „„u. strVersion u. strtimestamp
schreiben Ende If

„die Mitteilungschnur zum Screen
Wscript.Echo strMsg

“ schreiben die Mitteilungschnur zum Ausgabedatei (mit einem CR LF)
objOutputFile.Write strMsg &vbCRLF
End Function

Antwort : Hinzufügen des Zeitstempels outfile Akte

dieses versuchen
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:

'Den Dateisystem-Gegenstand verursachen
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen

'Die Ausgabedatei herstellen
objOutputFile einstellen = objFSO.CreateTextFile (strOutputFile, zutreffend, zutreffend)

'Die Version einer Akte erhalten und sie in eine Mitteilungschnur einsetzen
Für i = 0 zu UBound (arrFiles)
                wenn arrFiles (i) <> "" dann
                                ProcessFile arrFiles (i)
                Beenden wenn
Zunächst

'Nah die Ausgabedatei
objOutputFile.Close

Funktion ProcessFile (strFile)
                Schwaches strMsg, strVersion, Zeitstempel
                'Sicherstellen, dass die Akte existiert
                Wenn objFSO.FileExists (strFile) = falsch dann
                                strMsg = strFile u. „- Akte nicht gefunden. “
                Sonst
                'Die Version der Akte erhalten und sie in eine Mitteilungschnur einsetzen
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = Zeit ()
                                strMsg = strFile u. „„u. strVersion u. strtimestamp
                Beenden wenn

                'Die Mitteilungschnur zum Schirm schreiben
                Wscript.Echo strMsg

                'Die Mitteilungschnur zur Ausgabedatei schreiben (mit einem CR LF)
                objOutputFile.Write jetzt u. „: “ u. strMsg &vbCRLF
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us