|

1 envío / 0 nuevos

Inicie sesión o regístrese para comentar

Mar, 10/09/2012 - 11:01

josete.marvel

Desconectado/a

Visto por última vez: Hace 11 meses 1 semana

se unió: 10/09/2012 - 10:57

UUID

¿Cómo se puede saber el código "UUID" que tiene un fichero?

Mon, 03-02-2014 11:37:59

felimanue

Desconectado/a

Visto por última vez: Hace 8 años 5 meses

se unió: 09/24/2012 - 21:18

Posts:

Pega este codigo en VBA y ejecuta. El resultado es el UUID del archivo.

Sub CATMain()

Dim sText As String

Read_UUID = ""

sPath = InputBox("Path")

Open sPath For Binary Access Read As #1

sText = Space(LOF(1))

Get #1, , sText

Close #1

lStart = InStr(sText, HEADER)

If lStart > 0 Then

For n = 1 To 16

Read_UUID = Read_UUID & Right("0" & Hex(Asc(Mid(sText, lStart + Len(HEADER) - 1 + n, 1))), 2)

Next n

Read_UUID = Left(Read_UUID, 8) & "-" & Mid(Read_UUID, 9, 4) & "-" & Mid(Read_UUID, 13, 4) & "-" & Mid(Read_UUID, 17, 4) & "-" & Right(Read_UUID, 12)

Else

Read_UUID = "NOT FOUND"

End If

MsgBox (Read_UUID)

End Sub