La he usado para el programa Destornishador para renombrar fotos digitales.
Public Function funCRC32(strInputPath As String, Optional strCase As String) As String
' Obtencion del crc32 de archivos, el parametro opciona strCase puede ser U o L,
' donde U upercase y L Lowecase, por defecto lo devuelve en Uppercase
Dim strCrc32 As String
Shell "crc32 '" & strInputPath & "'" To strCrc32
strCrc32 = String.Mid(strCrc32, 1, 8) ' Corte de 8 caracters para quitar el \n y demas carcteres si se produjeran
Select strCase
Case "U", "u", ""
strCrc32 = String.UCase(strCrc32)
Case "L", "l"
strCrc32 = String.LCase(strCrc32)
End Select
Return strCrc32
End
' Obtencion del crc32 de archivos, el parametro opciona strCase puede ser U o L,
' donde U upercase y L Lowecase, por defecto lo devuelve en Uppercase
Dim strCrc32 As String
Shell "crc32 '" & strInputPath & "'" To strCrc32
strCrc32 = String.Mid(strCrc32, 1, 8) ' Corte de 8 caracters para quitar el \n y demas carcteres si se produjeran
Select strCase
Case "U", "u", ""
strCrc32 = String.UCase(strCrc32)
Case "L", "l"
strCrc32 = String.LCase(strCrc32)
End Select
Return strCrc32
End
Saludos.
Granada
