[vba]Код
Sub MifV()
Dim fsoFile, FileDateTime, s
Dim FilePath As String
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
'FilePath = "C:\Users\Альберт\Desktop\УЛ\Раздел ПД №5 подраздел ПД №6 ИОС6.pdf"
FilePath=[a1]
Set fsoFile = objFSO.GetFile(FilePath)
FileDateTime = (fsoFile.DateCreated)
[d4] = FileMD5(FilePath)
[d6] = FileDateTime 'в ячейку d6 текущего листа вставляем дату создания файла
[f6] = FileLen(FilePath)
End Sub
Function FileMD5$(sFilePath$)
On Error GoTo err
Dim byteArr() As Byte
With CreateObject("adodb.stream")
.Type = 1: .Open: .LoadFromFile sFilePath
byteArr = .read
End With
With CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
FileMD5 = Join(Application.Dec2Hex(.ComputeHash_2(byteArr), 2), "")
End With
Erase byteArr
Exit Function
err: Debug.Print "Err: " & err.Number & " - " & err.Description
FileMD5$ = err.Description
End Function
[/vba]