Vraag : Het toevoegen van timestamp aan outfile Dossier

Hello, heeft

I een vbscript die de dossierversie van serval diffrerent lokale dossiers krijgt, tot een outputdossier, dan
puts- dossierversie in een berichtkoord leidt en aan een ouputdossier schrijft. Hoe voeg ik timestamp aan toe het outputdossier?

This is wat ik heb:

' leidt tot het Systeem Object
Set van het Dossier objFSO = CreateObject („Scripting.FileSystemObject“)

'Create de Output objOutputFile File
Set = objFSO.CreateTextFile (strOutputFile, Waar, Waar)

' krijgt de Versie van een Dossier en zette het in een Bericht string
For i = 0 aan UBound (arrFiles)
als arrFiles (I) het <>"" then
ProcessFile arrFiles (I)
Eind If
Next

' Schemerige strMsg sluit/>
Function ProcessFile van de Output van File
objOutputFile.Close
, zorgt strVersion, timestamp
„het dossier exists
ervoor als (strFile) objFSO.FileExists = Valse Then
strMsg = strFile &“ - gevonden niet Dossier. „
Else
“ krijgt de Versie van het Dossier en zette het in een strVersion van het Bericht string
= objFSO.GetFileVersion (strFile)
strtimestamp = tijd ()
strMsg = strFile & „„& schrijven strVersion & strtimestamp
het Eind If

„het koord van het Bericht aan Screen
Wscript.Echo strMsg

“ het koord van het Bericht aan het Dossier van de Output (met een Cr LF)
objOutputFile.Write strMsg &vbCRLF
End Function schrijft

Antwoord : Het toevoegen van timestamp aan outfile Dossier

probeer dit
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:

'Cre�ër het Voorwerp van het Systeem van het Dossier
Plaats objFSO = CreateObject („Scripting.FileSystemObject“)

'Cre�ër het Dossier van de Output
Plaats objOutputFile = objFSO.CreateTextFile (strOutputFile, Waar, Waar)

'Krijg de Versie van een Dossier en zet het in een koord van het Bericht
Voor I = 0 aan UBound (arrFiles)
                als arrFiles (I) <> "" toen
                                ProcessFile arrFiles (I)
                Eind als
Daarna

'Sluit het Dossier van de Output
objOutputFile.Close

Functie (strFile) ProcessFile
                Schemerige strMsg, strVersion, timestamp
                'Zorg ervoor het dossier bestaat
                Als (strFile) objFSO.FileExists = Vals toen
                                strMsg = strFile & „- gevonden niet Dossier. “
                Anders
                'Krijg de Versie van het Dossier en zet het in een koord van het Bericht
                                strVersion = (strFile) objFSO.GetFileVersion
                        strtimestamp = tijd ()
                                strMsg = strFile & „„& strVersion & strtimestamp
                Eind als

                'Schrijf het koord van het Bericht aan het Scherm
                Wscript.Echo strMsg

                'Schrijf het koord van het Bericht aan het Dossier van de Output (met een Cr LF)
                objOutputFile.Write nu & „: “ & strMsg &vbCRLF
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us