17/05/2006, 08:02
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 88
Antigüedad: 18 años, 4 meses Puntos: 0 | |
Cita:
Iniciado por vbx3m Prueba con este codigo:
Código:
If Mid(File1.Path, Len(File1.Path), 1) = "\" Then
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & File1.FileName, vbNormalFocus)
Else
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & "\" & File1.FileName, vbNormalFocus)
End If
Asi podras abrir archivos de cualquier extension... Gracias amigo me fue de gran ayuda tu codigo |