Access código descarga y guardar archivo en
Que tal! De antemano muchas gracias por tu tiempo.
Tengo una base de datos en access la cual requiero que al oprimir un botón descargue un archivo de una dirección http, se guarde el archivo y se cierre access.
El código que estoy utilizando es así:
Private Sub Comando85_Click()
Dim strUrl As String
strUrl = "http://dominio.com/archivo.exe"
Call Shell("explorer.exe " & strUrl, vbMaximizedFocus)
Application.Quit
End Sub
Funciona pero, lo que pasa es que al empezar a descargar el archivo, el explorador me pide que elija la ruta donde lo voy a guardar. Necesito que el archivo se guarde automáticamente en c:/ sin intervención del usuario.
¿Qué me sugieres?
Tengo una base de datos en access la cual requiero que al oprimir un botón descargue un archivo de una dirección http, se guarde el archivo y se cierre access.
El código que estoy utilizando es así:
Private Sub Comando85_Click()
Dim strUrl As String
strUrl = "http://dominio.com/archivo.exe"
Call Shell("explorer.exe " & strUrl, vbMaximizedFocus)
Application.Quit
End Sub
Funciona pero, lo que pasa es que al empezar a descargar el archivo, el explorador me pide que elija la ruta donde lo voy a guardar. Necesito que el archivo se guarde automáticamente en c:/ sin intervención del usuario.
¿Qué me sugieres?
1 Respuesta
Respuesta de alex206
1
Prueba cambiar tu código por este:
'definicion nueva
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
'funcion nueva
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 Comando10_Click()
On Error GoTo Err_Comando10_Click
Dim strTexto As String
Dim i As Integer
If DownloadFile("
", "C:\destino.jpg") = True Then
MsgBox "Descarga correcta"
Else
MsgBox "Error en la descarga"
End If
end sub
Si se te soluciona el problema, ciérrame la pregunta
'definicion nueva
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
'funcion nueva
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 Comando10_Click()
On Error GoTo Err_Comando10_Click
Dim strTexto As String
Dim i As Integer
If DownloadFile("
", "C:\destino.jpg") = True ThenMsgBox "Descarga correcta"
Else
MsgBox "Error en la descarga"
End If
end sub
Si se te soluciona el problema, ciérrame la pregunta
