http://snippets.dzone.com/posts Sun, 12 Oct 2008 05:07:18 GMT DZone Snippets: Ceronegativo's Code Snippets http://snippets.dzone.com/posts/show/2931 //Función a la que se le pasa el archivo jpg o jpge y devuelve la fecha en la que fue tomada <br /> <br /><code> <br /> Public Function ObtieneFecha(ByVal RutaArchivo As String) As Date <br /> <br /> Dim image As New Bitmap(RutaArchivo) <br /> Dim propItems As System.Drawing.Imaging.PropertyItem() = image.PropertyItems <br /> <br /> Dim encoding As New System.Text.ASCIIEncoding <br /> <br /> For i As Integer = propItems.GetLowerBound(0) To propItems.GetUpperBound(0) <br /> If propItems(i).Id.ToString = "36868" Then <br /> Dim strAux1() As String = Split(encoding.GetString(propItems(i).Value), " ") <br /> Dim strAux2() As String = Split(strAux1(0), ":") <br /> Dim strAux3() As String = Split(strAux1(1), ":") <br /> Return CDate(strAux2(0) & "/" & strAux2(1) & "/" & strAux2(2) & " " & strAux3(0) & ":" & strAux3(1) & ":" & strAux3(2)) <br /> End If <br /> Next <br /> image.Dispose() <br /> End Function <br /></code> Mon, 30 Oct 2006 22:16:11 GMT http://snippets.dzone.com/posts/show/2931 ceronegativo (Pablo)