[Enlace externo eliminado para invitados]
[Enlace externo eliminado para invitados]
Si no lo quieren descargar, se los dejo aca
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
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
DownloadFile (Text1.Text), (Text2.Text) + (Text3.Text) + (Text4.Text)
MsgBox (" ¡ Se Descargo Correctamente ! "), vbInformation, (" ")
End Sub
Private Sub Command2_Click()
Dim sDir As String
Dim lFlags As Long
lFlags = lFlags Or BIF_BROWSEINCLUDEFILES
Err = 0
sDir = BrowseForFolder(Me.hwnd, "Seleccionar Directorio", , lFlags)
If Err = 0 Then
txtRutaImagenes = sDir
Text2.Text = sDir & ("\")
Else
MsgBox "Se ha cancelado la operación de selección de directorio", vbInformation + vbOKOnly, "SICE"
End If
Err = 0
End Sub
Private Sub Image1_Click()
Call ShellExecute(Me.hwnd, "Open", (Text2.Text), "", "", 1)
End Sub
Saludos amigos
