Тема: VBS: DateCreated отделить месяц, год
Научился разбивать текущее время на дни, месяцы, годы:
Function TakeFolderTime()
RetCode = 0
dim DateNow, NameDDMMYYYY, NameHHNNSS
dim y, m, d, h, n, s
DateNow = now
' год
y = DatePart("yyyy", DateNow)
' месяц
m = DatePart("m", DateNow)
' день
d = DatePart("d", DateNow)
'чаc
h = DatePart("h", DateNow)
'минута
n = DatePart("n", DateNow)
'секунда
s = DatePart("s", DateNow)
If Len(m) = 1 Then
m = "0" &m
End If
If Len(d) = 1 Then
d = "0" &d
End If
If Len(h) = 1 Then
h = "0" &h
End If
If Len(n) = 1 Then
n = "0" &n
End If
If Len(s) = 1 Then
s = "0" &s
End If
NameDDMMYYYY = d &"_" &m &"_" &y
NameHHNNSS = h &"_" &n &"_" &s
TakeFolderTime = NameHHNNSS
End Function
А вот как определить месяц и год создания файла ?
Может есть корректные методы? А то не очень хочется разделять или парсить строку.
Dim objFso, File,
Set objFso = CreateObject("Scripting.FileSystemObject")
Set File = objFso.GetFile("D:\Autorun.inf")
MsgBox File.DateCreated
Показывает все вместе, а как отделить и оставить год и месяц например? И полученный список отсортировать по месяцу и году?




