Update Form

[broll]

Ciao a tutti.
Ho provato a farlo varie volte ma non sono riuscito a creare niente di buono quindi chiedo aiuto a voi:
vorrei fare un form che quando si apre, tramite un indirizzo url , scarichi un file e lo metta nella cartella che voglio, che il label1.text sia "aggiornamento in corso".
ma se il file non esiste, vorrei che il label1.text sia "errore connessione".
riuscite ad aiutarmi?
grazie in anticipo, ciao.

edit: mi piacerebbe anche che un progressbar mostrasse il download in corso... non so se mi sono spiegato

[gibra]

Per scaricare il file è semplice:
http://allapi.mentalis.org/apilist/U...adToFile.shtml

Ma per la progressbar la cosa diventa un po' troppo complicata, perchè sono richieste conoscenze assai più avanzate.

Ciao

[broll]

va bene, fin qui ci sono.
pero come faccio a fare in modo che il mio programma "veda" se il file hostatp in internet esiste o no? io ho provato con io.directory.exist("url") pero non funziona perchè con questo modo posso vedere le cartelle sul disco C:\ e non su internet...

[andreaciao_22]

esisterà sicuramente una procedura migliore

        Try
            My.Computer.Network.DownloadFile(Urldelfiledascaricare, urlfilescaricato, switchoverwrite)
        Catch ex As System.Net.WebException
            If ex.Message.ToLower = "errore del server remoto: (404) non trovato." Then
                 'file non trovato in rete
            Else
                Messagebox.show(ex.Message)
            End If
        End Try

- urldelfiledascaricare(stringa): è l'url completo ove si trova il file da scaricare... deve contenere anche il nome del file;
- urlfilescaricato(stringa): è l'url dove mettere il file in locale... deve esserci anche il nome del file;
- switchoverwrite(booleano): serve a dire al programma se sovrascrivere il file, se non lo metti ti restituisce un errore se il file esiste già

la prossima volta specifica il linguaggio, perchè non si capisce, e ho letto che usi vb.net (ho letto io.directory.exists, che comunque sarebbe io.file.exist perchè tu devi vedere se c'è il file, non la directory)

[gibra]

Originariamente inviato da broll
va bene, fin qui ci sono.
pero come faccio a fare in modo che il mio programma "veda" se il file hostatp in internet esiste o no? io ho provato con io.directory.exist("url") pero non funziona perchè con questo modo posso vedere le cartelle sul disco C:\ e non su internet...

Se il file non esiste, intercetti l'errore.
Comunque avresti dovuto prima specificare il linguaggio e la versione che usi.
Tienilo presente la prossima volta.

Quindi segui il suggerimento di andreaciao_22.

Ciao

[broll]

switchoverwrite mi da errore... io faccio dim switchoverwrite as boolean ma mi da errore

[andreaciao_22]

fammi vedere tutto il codice...

[broll]

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Urldelfiledascaricare As String, urlfilescaricato As String, switchoverwrite As Boolean

Try
My.Computer.Network.DownloadFile(Urldelfiledascari care, urlfilescaricato, switchoverwrite)
Catch ex As System.Net.WebException
If ex.Message.ToLower = "errore del server remoto: (404) non trovato." Then
'file non trovato in rete
Else
MessageBox.Show(ex.Message)
End If
End Try

End Sub

[andreaciao_22]

questo è quello giusto..(segui i commenti):

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim UrlFileOnline As String = "" ' url file online
        Dim UrlFileLocal As String = "" 'url file locale
        Dim swOverwrite As Boolean = False 'switch per sovrascrittura 
        Dim strUser As String = "" 'nome utente sew lo sai sennò lascia vuoto
        Dim strPwd As String = "" 'uguale come sopra
        Dim swShowUI As Boolean = False 'mostra maschera 
        Dim intConn As Integer = 500 'intero che indica dopo quanto far cadere la connessione
        Try
            My.Computer.Network.DownloadFile(UrlFileOnline, UrlFileLocal, strUser, strPwd, swShowUI, intConn, swOverwrite)
        Catch ex As System.Net.WebException
            If ex.Message.ToLower = "errore del server remoto: (404) non trovato." Then
                'file non trovato in rete
            Else
                MessageBox.Show(ex.Message)
            End If
        End Try

    End Sub

[broll]

grazie mille dell'aiuto... riusciresti anche a dirmi come mettere il progressbar?