16/05/2006, 17:32
|
 | | | Fecha de Ingreso: febrero-2005 Ubicación: Venezuela
Mensajes: 524
Antigüedad: 19 años, 3 meses Puntos: 1 | |
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...
__________________
ホルヘ・ラファエル・マルティネス・レオン |