Obnova datumu u xls souboru podle statistického údaje

Ak ti stačí nastaviť len dátum poslednej zmeny súboru a tie súbory sú v jednom adresári, tak možno využiješ takýto skript:

Dim shell, fso, excel, folder
Dim aFile, aWorkbook, aProperty 

Set shell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = shell.NameSpace(fso.GetAbsolutePathName("."))
Set excel = CreateObject("Excel.Application")

For Each aFile In folder.Items
	If Not aFile.IsFolder And fso.GetExtensionName(aFile) = "xls" Then
		Set aWorkbook = excel.Workbooks.Open(aFile.Name)

		For Each aProperty in aWorkbook.BuiltinDocumentProperties
			If aProperty.Name = "Creation date" Then
				aFile.ModifyDate = aProperty.Value
				Exit For
			End If
		Next

		aWorkbook.Close
		Set aWorkbook = Nothing
	End If
Next

excel.Quit

Set excel = Nothing
Set folder = Nothing
Set fso = Nothing
Set shell = Nothing

Díky moc, vyzkouším. Potřebuju změnu datumu na čas vytvoření. Ale může se to někdy taky hodit. S tím Totalem jsem to za chvilku měl přebrané a roztříděné, takže paráda. Pak už jen hromadně přepisovat atributy