Abrir un archivo o aplicación directamente desde VB 6.0

Para complementar el artículo anterior, que nos servía para cambiar o recuperar la fecha original de los archivos p.e. de imagen, que son actualizadas despues de guardar las modificaciones.

Añadiríamos en la cabecera siguiente en el formulario principal.

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Hemos añadido un CheckBox (ChkOpen) en el formulario principal, donde podrémos seleccionar si queremos editar automáticamente el archivo, e incluiríamos, dentro del bucle de tratamiento de la imagen, la orden de ejecutar la edición..

If ChkOpen.Value = 1 Then
  Call ShellExecute(Me.hwnd, "Edit", xFile, "", "", 1)
End If

Y esta es la modificación incluida hoy. Hasta pronto amigos..

Deja un comentario