ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ANTRAMABANAKAN 15:35 07-05-2009
Цитата:| Есть ли возможность проверять дату файла перед копированием |
Код: sFile = "File.exe"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(sFile)
sInfo = _
"Информация для файла <" & sFile & ">" & vbCRLF & vbCRLF & _
"Файл создан: " & oFile.DateCreated & vbCRLF & _
"Файл был изменен: " & oFile.DateLastModified & vbCRLF & _
"Файл был открыт: " & oFile.DateLastAccessed & vbCRLF
MsgBox sInfo, 64, "File Info" |
Добавлено:
alur2005 15:52 07-05-2009
Цитата:| каким способом можно экспортировать значения реестра в reg файл |
Через консольную утилиту reg:
Код: Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "REG EXPORT ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"" CurrentVersion.reg", 0, True |
А если значение только одного ключа, то проще записать сразу в файл (получить значение через WshShell.RegRead):
Код: RegKeyExport "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId", ".\ProductId.reg"
Function RegKeyExport(sRegPath, sRegKey, sRegFile)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sRegKeyValue = WshShell.RegRead(sRegPath & "\" & sRegKey)
sRegContent = _
"Windows Registry Editor Version 5.00" & vbCRLF & vbCRLF & _
"[" & sRegPath & "]" & vbCRLF & _
"""" & sRegKey & """=""" & Replace(sRegKeyValue, "\", "\\") & """"
If Not oFSO.FileExists(sRegFile) Then
Set oTextStream = oFSO.CreateTextFile(sRegFile)
Else
Set oFile = oFSO.GetFile(sRegFile)
Set oTextStream = oFile.OpenAsTextStream(2)
End If
oTextStream.Write(sRegContent)
oTextStream.Close
End Function |
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 16:45 07-05-2009 | Исправлено: ViSiToR, 23:09 07-05-2009 |
|
