hola amgos buen dia, el motivo por el cual hago este post es porque tengo un codigo para descargar un archivo desde una direccion web pero la primera vez si lo descarga pero al intentar descargarlo nuevamente y que me reemplace el archivo no lo hace entonces lei que se requiere que se utilize la funcion overwrite pero no se donde va lo hice de una forma pero no funciona lo hice de esta manera
Código:
Function Descargar_Archivo(ByVal Url As String, _
ByVal Path_Destino As String, ByVal overwrite As Boolean) As Boolean
If Url = vbNullString Or Path_Destino = vbNullString Then
MsgBox("No se indicó la url o el archivo de destino", _
MsgBoxStyle.Critical, "Error")
Else
If Len(Dir(Path_Destino)) <> 0 Then
'MsgBox("el archivo destino ya existe.Elija otro destino diferente", _
'MsgBoxStyle.Exclamation, "Error")
'Else
On Error Resume Next
My.Computer.Network.DownloadFile(Url, Path_Destino)
If Err.Number >= 0 Then
Descargar_Archivo = True
Else
MsgBox(Err.Description)
End If
Err.Clear()
End If
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ret As Boolean
ret = Descargar_Archivo(txt_url.Text, txt_path_destino.Text, overwrite:= True)
If ret Then
MsgBox("Archivo descargado correctamente", MsgBoxStyle.Information)
End If
End Sub
ya trate de poner el overwrite en la sentencia siguiente agregandoselo pr ejemplo:
My.Computer.Network.DownloadFile(Url, Path_Destino, overwrite:=true)
pero marca un error sobre que dice que es una sobre carga el caso es que no se como hacer para reemplazar el archivo que intento descargar
alguien podria ayudarme muchas graciasss