Foros del Web » Programación para mayores de 30 ;) » .NET »

AYUDA funcion overwrite!!!

Estas en el tema de AYUDA funcion overwrite!!! en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 14/03/2011, 13:35
 
Fecha de Ingreso: enero-2008
Mensajes: 181
Antigüedad: 16 años, 3 meses
Puntos: 1
Información AYUDA funcion overwrite!!!

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

Etiquetas: funcion
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:29.