[DmitriiV]

Совсем было забыл, что значение свойства CreationDate нужно предварительно преобразовать:

Код:

strTemp = objItem.CreationDate
objFile.WriteLine(Mid(strTemp, 7, 2) & "-" & Mid(strTemp, 5, 2) & "-" & Left(strTemp, 4) & " " &  objItem.Name)