Серый форум — VBS: Как преобразовать дату модификации файла к формату ГГГГММДД?

Re: VBS: Как преобразовать дату модификации файла к формату ГГГГММДД?

null@example.com (griha09) — Mon, 04 Mar 2013 17:52:52 +0000

Большое спасибо за помошь

Re: VBS: Как преобразовать дату модификации файла к формату ГГГГММДД?

null@example.com (alexii) — Mon, 04 Mar 2013 17:42:18 +0000

griha09, к сожалению, только ручками. Функция «FormatDateTime()» в WSH очень ограничена по сравнению с тем же VBA, не говоря уже про VB.Net. Можно так:

Option Explicit

WScript.Echo FormatDateTimeYYYYMMDD(WScript.CreateObject("Scripting.FileSystemObject").GetFile("c:\boot.ini").DateLastModified)

WScript.Echo FormatDateTimeYYYYMMDD(#01/31/2013#)
WScript.Echo FormatDateTimeYYYYMMDD("31.01.2013")

' Следующая строка вызовет ошибку. Для демонстрации
WScript.Echo FormatDateTimeYYYYMMDD("29.02.2013")

WScript.Quit 0
'=============================================================================

'=============================================================================
Function FormatDateTimeYYYYMMDD(dtDate)
    If IsDate(dtDate) Then
        FormatDateTimeYYYYMMDD = _
            Right("0000" & Year(CDate(dtDate)),  4) & _
            Right("00"   & Month(CDate(dtDate)), 2) & _
            Right("00"   & Day(CDate(dtDate)),   2)
    Else
        Err.Raise 13, "FormatDateTimeYYYYMMDD", "Несоответствие типа параметра [dtDate]"
    End If
End Function
'=============================================================================

VBS: Как преобразовать дату модификации файла к формату ГГГГММДД?

null@example.com (griha09) — Mon, 04 Mar 2013 16:51:50 +0000

Не могу понять как преобразовать дату модификации файла к формату ГГГГММДД, например 20130304. Сейчас получаю дату так FormatDateTime(File.DateLastModified ,vbShortDate), но это дает такой вид 04.03.2013