Pergunta : Adicionando o timestamp à lima outfile

Olá!, o

I tem um vbscript que começ a versão da lima de limas locais diffrerent do serval, crie uma lima de saída, a seguir a versão da lima do
puts em uma corda da mensagem e os escreva a uma lima do ouput. Como eu adiciono um timestamp à lima de saída? o

This é o que eu tenho: o

' cria o objFSO de Object
Set do sistema de arquivo = o

'Create de CreateObject (“Scripting.FileSystemObject”) a saída File
Set objOutputFile = o

' de objFSO.CreateTextFile (strOutputFile, verdadeiro, verdadeiro) começ a versão de uma lima e põr a em um string
For i = 0 da mensagem ao
de UBound (arrFiles) se arrFiles (i) arrFiles do then
ProcessFile do "" do <> (extremidade If
Next

' do i)
fecham o strMsg não ofuscante (strFile) do
de File
objOutputFile.Close

Function ProcessFile da saída, strVersion, o timestamp
“certifica-se do exists
da lima se objFSO.FileExists (strFile) = strMsg falso de Then
= strFile & ” - Lima não encontrada. o “
Else
” começ a versão da lima e põr a em um strVersion do string
da mensagem = em um strtimestamp do
de objFSO.GetFileVersion (strFile) = em um strMsg do
do tempo () = strFile & ““& a extremidade If

do strVersion & do strtimestamp
“escreve a corda da mensagem ao strMsg

de Screen
Wscript.Echo” escreve a corda da mensagem ao &vbCRLF
End Function do strMsg do
objOutputFile.Write da lima de saída (com um CR LF) class= do

Resposta : Adicionando o timestamp à lima outfile

tentar isto
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:

'Criar o objeto do sistema de arquivo
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)

'Criar a lima de saída
Ajustar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdadeiro, verdadeiro)

'Começ a versão de uma lima e põr a em uma corda da mensagem
Para i = 0 a UBound (arrFiles)
                se arrFiles (i) <> "" então
                                arrFiles de ProcessFile (i)
                Terminar se
Em seguida

'Próximo a lima de saída
objOutputFile.Close

Função ProcessFile (strFile)
                strMsg não ofuscante, strVersion, timestamp
                'Certificar-se que a lima existe
                Se objFSO.FileExists (strFile) = falso então
                                strMsg = strFile & “- lima não encontrada. ”
                Mais
                'Começ a versão da lima e põr a em uma corda da mensagem
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = tempo ()
                                strMsg = strFile & ““& strVersion & strtimestamp
                Terminar se

                'Escrever a corda da mensagem à tela
                strMsg de Wscript.Echo

                'Escrever a corda da mensagem à lima de saída (com um CR O LF)
                objOutputFile.Write agora & “: ” & &vbCRLF do strMsg
Função do fim
Outras soluções  
 
programming4us programming4us