Fråga : Tillfoga tidsstämpeln till outfile spara

Hälsningar

I har en vbscript, som får sparaversionen av servalen som den diffrerent lokalen sparar, skapar tillverkad sparar, då
puts sparar version i ett meddelande stränger, och skriver till en ouput sparar. Hur jag tillfogar en tidsstämpel till tillverkad sparar?

This är vad jag har:

' skapar objFSOen för sparasystemet Object
Set = den CreateObject (”Scripting.FileSystemObject”)
'Create den objOutputFile tillverkade FileSet =

' för objFSO.CreateTextFile (strOutputFile, riktigt, riktigt) får versionen av en spara och satte den i en meddelandestring
For i = 0 till UBound (arrFiles)
, om för <>"" för arrFiles (I)
för arrFiles för then
ProcessFile (I) avslutar If
Next

' tätt den tillverkade dunkla strMsgen för File
objOutputFile.Close

Function ProcessFile (strFile)
, strVersionen, timestamp
”ser till sparaexists om (strFile) objFSO.FileExists = falsk Then
strMsg = strFile &” - spara inte funnit. ”
Else
” får versionen av spara och satte den i en strVersion för meddelandestring
= en strtimestamp för
för objFSO.GetFileVersion (strFile) = en strMsg för
för tid () = strFile, & ””& strVersionen & strtimestamp
avslutar If

”skriver meddelandet stränger till den Screen
Wscript.Echo strMsg
” skriver meddelandet stränger till tillverkad sparar (med CR LF) strMsg&vbCRLF
End Function för
objOutputFile.Write " klar "

Svar : Tillfoga tidsstämpeln till outfile spara

försök detta
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:

'Skapa sparasystemet anmärker
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)

'Skapa tillverkad sparar
Fastställdt objOutputFile = objFSO.CreateTextFile (strOutputFile, riktigt, riktigt)

'Få versionen av en spara och sätt den i ett meddelande stränger
För I = 0 till UBound (arrFiles)
                om "" för arrFiles (I <> ) därefter
                                ProcessFile arrFiles (I)
                Avsluta om
Därefter

'Nära tillverkade sparar
objOutputFile.Close

Fungera (strFile) ProcessFile,
                Dunkel strMsg, strVersion, tidsstämpel
                'Se till att spara finns
                Om (strFile) objFSO.FileExists = falskt därefter
                                strMsg = strFile & ”- spara inte funnit. ”,
                Annars
                'Få versionen av spara och sätt den i ett meddelande stränger
                                strVersion = (strFile) objFSO.GetFileVersion,
                        strtimestamp = tid ()
                                strMsg = strFile & ””& strVersion & strtimestamp
                Avsluta om

                'Skriv meddelandet stränger till avskärma
                Wscript.Echo-strMsg

                'Skriv meddelandet stränger till tillverkad sparar (med CR LF)
                objOutputFile.Write nu & ”: ” & strMsg&vbCRLF
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us