Вопрос : Добавлять фиксацию времени к outfile архиву

Здравствулте!,

I имеет vbscript которое получает вариант архива архивов serval diffrerent местных, создает выходной файл, тогда вариант архива
puts в шнуре сообщения и пишет к архиву ouput. Как я добавляю фиксацию времени к выходному файлу?

This я имею:

' создает objFSO Object
Set системы файлов =

'Create CreateObject («Scripting.FileSystemObject») выход File
Set objOutputFile =

' objFSO.CreateTextFile (strOutputFile, поистине, поистине) получает вариант архива и положило его в string
For iего = 0 сообщения к
UBound (arrFiles) если конец If
Next

'
arrFiles then
ProcessFile "" <> arrFiles (I) (I) закрывает strMsg
File
objOutputFile.Close

Function ProcessFile выхода (strFile) тусклое, strVersion, timestamp
«делает конечно exists
архива если objFSO.FileExists (strFile) = ложное Then
                                strMsg = strFile &» - ый архив. «
Else
» получает вариант архива и положило его в strVersion string
сообщения = strtimestamp
objFSO.GetFileVersion (strFile) = strMsg
времени () = strFile & ««& конец If

strVersion & strtimestamp
«пишет шнур сообщения к strMsg

Screen
Wscript.Echo» пишет шнур сообщения к &vbCRLF
End Function strMsg
objOutputFile.Write выходного файла (с CR LF) class=

Ответ : Добавлять фиксацию времени к outfile архиву

попытайтесь это
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:

'Создайте предмет системы файлов
Установите objFSO = CreateObject («Scripting.FileSystemObject»)

'Создайте выходной файл
Установите objOutputFile = objFSO.CreateTextFile (strOutputFile, поистине, поистине)

'Получите вариант архива и положите его в шнур сообщения
Для I = 0 к UBound (arrFiles)
                если "" arrFiles (I <> ) после этого
                                arrFiles ProcessFile (I)
                Закончитесь если
Затем

'Близко выходной файл
objOutputFile.Close

Функция ProcessFile (strFile)
                Тусклое strMsg, strVersion, фиксация времени
                'Сделайте конечно архив существует
                Если objFSO.FileExists (strFile) = ложно после этого
                                strMsg = strFile & «- ый архив. »
                Еще
                'Получите вариант архива и положите его в шнур сообщения
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = время ()
                                strMsg = strFile & ««& strVersion & strtimestamp
                Закончитесь если

                'Напишите шнур сообщения к экрану
                strMsg Wscript.Echo

                'Напишите шнур сообщения к выходному файлу (с CR LF)
                objOutputFile.Write теперь & «: » & &vbCRLF strMsg
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us