¿Y para el resto de ficheros, no solo de office, sino cualquier cosa, una imágen, un vídeo, un txt, etc...?
¿Se puede?
gracias y saludos.
¿Se puede?
gracias y saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For Each p As Process In Process.GetProcesses()
Debug.WriteLine(p.Modules(0).FileName)
Next p
Catch p As Exception
MsgBox(p.ToString)
End Try
End Sub
' Para que este código funcione "tal cual está" necesitas:
' Form1 y dentro TextBox1 (multilínea activado)
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class Form1
Protected Function MD5Checksum(ByVal fileName As String) As String
Dim file As New FileStream(fileName, FileMode.Open)
Dim md5 As MD5 = New MD5CryptoServiceProvider()
Dim retVal As Byte() = md5.ComputeHash(file)
file.Close()
Dim sb As New StringBuilder()
For i As Integer = 0 To retVal.Length - 1
sb.Append(retVal(i).ToString("x2"))
Next
Return sb.ToString()
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = MD5Checksum("C:\imagen1.jpg").ToString + vbCrLf + MD5Checksum("C:\imagen1 - copia.jpg").ToString
End Sub
End Class