Pytanie : Sumujący timestamp outfile Kartoteka

Cześć,

I mieć vbscript który dostawać the kartoteka wersja serval diffrerent lokalny kartoteka, tworzyć wydajność kartoteka, then
puts kartoteka wersja w wiadomość sznurek i pisać ouput kartoteka. Dlaczego i dodawać timestamp the wydajność kartoteka?

This być i i mieć:

' Tworzyć the Kartoteka System Object
Set objFSO = CreateObject ("Scripting.FileSystemObject")

'Create the Wydajność File
Set objOutputFile = objFSO.CreateTextFile (strOutputFile, Prawdziwy, Prawdziwy)

' Dostawać the Wersja Kartoteka i stawiać ono w Wiadomość string
For i = (0) UBound (arrFiles)
jeżeli arrFiles (i) <> "" then
ProcessFile arrFiles (i)
Końcówka If
Next

' Zakończenie the Wydajność File
objOutputFile.Close

Function ProcessFile (strFile)
Ćmić strMsg, strVersion, timestamp
"Upewniać się the kartoteka exists
Jeżeli objFSO.FileExists (strFile) = Fałszywy Then
                                strMsg = strFile &" - Segregować znajdować. "
Else
" Dostawać the Wersja the Kartoteka i stawiać ono w Wiadomość string
strVersion = objFSO.GetFileVersion (strFile)
strtimestamp = czas ()
strMsg = strFile & ""& strVersion & strtimestamp
Końcówka If

"Pisać the Wiadomość sznurek the Screen
Wscript.Echo strMsg

" Pisać the Wiadomość sznurek the Wydajność Kartoteka (z CR LF)
objOutputFile.Write strMsg &vbCRLF
End Function

Odpowiedź : Sumujący timestamp outfile Kartoteka

próbować to
(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:

'Tworzyć the Kartoteka System Przedmiot
Ustawiać objFSO = CreateObject ("Scripting.FileSystemObject")

'Tworzyć the Wydajność Kartoteka
Ustawiać objOutputFile = objFSO.CreateTextFile (strOutputFile, Prawdziwy, Prawdziwy)

'Dostawać the Wersja Kartoteka i stawiać ono w Wiadomość sznurek
Dla i = (0) UBound (arrFiles)
                jeżeli arrFiles (i) <> "" wtedy
                                ProcessFile arrFiles (i)
                Kończyć Jeżeli
Następnie

'Zamykać the Wydajność Kartoteka
objOutputFile.Close

Funkcja ProcessFile (strFile)
                Ciemnawy strMsg, strVersion, timestamp
                'Upewniać się the kartoteka istnieć
                Jeżeli objFSO.FileExists (strFile) = Fałszywy Wtedy
                                strMsg = strFile & "- Segregować znajdować. "
                Inny
                'Dostawać the Wersja the Kartoteka i stawiać ono w Wiadomość sznurek
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = czas ()
                                strMsg = strFile & ""& strVersion & strtimestamp
                Kończyć Jeżeli

                'Pisać the Wiadomość sznurek the Ekran
                Wscript.Echo strMsg

                'Pisać the Wiadomość sznurek the Wydajność Kartoteka (z CR LF)
                objOutputFile.Write Teraz & ": " & strMsg &vbCRLF
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us