Récuperer des infos (taille, type, etc) d'un fichier sur internet


Télécharger le projet
Commenter

Description

Voila un tout petit exemple montrant comment recupérer des infos (taille, type, etc ) d'un fichier
accessible par http en .net.
Cela peut surement servir (vu que cela m'a servi =) )

L'exemple à besoin de 6 label, nommé Label1 à Label6, un textbox nomme textbox1 et un bouton nommé button1 (que du par defaut quoi ^^)

Source / Exemple : 


'Ajouter cette import avant le debut de la class Form
Imports System.Net

'puis copier coller le reste aores avoir crée les controls indiqués au dessus:

 Dim typefile As String
    Dim status As String
    Dim contentlength As Integer
    Dim LastModified As String
    Dim server As String
    Dim httpversion As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Get_file_info(TextBox1.Text)
        Label1.Text = "Taille : " & contentlength & " octets (" & contentlength / 1024 & " Ko)"
        Label2.Text = "Type : " & typefile
        Label3.Text = "Status : " & status
        Label4.Text = "Date de modification : " & LastModified
        Label5.Text = "Serveur : " & server
        Label6.Text = "HTTP version : " & httpversion
    End Sub

    Sub Get_file_info(ByVal fileurl As String, Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing)
        If proxy <> Nothing And proxyport <> Nothing Then
            Dim hproxy As WebProxy
            hproxy = New WebProxy(proxy, proxyport)
            GlobalProxySelection.Select = hproxy
        End If
        Dim hwebrequest As System.Net.HttpWebRequest = System.Net.WebRequest.Create(fileurl)
        Try
            Dim hwebresponse As System.Net.HttpWebResponse = hwebrequest.GetResponse
            contentlength = hwebresponse.ContentLength
            typefile = hwebresponse.ContentType
            status = hwebresponse.StatusDescription
            LastModified = hwebresponse.LastModified
            server = hwebresponse.Server
            httpversion = hwebresponse.ProtocolVersion.ToString

            hwebresponse.Close()
        Catch ex As Exception
            If ex.Message = "Le serveur distant a retourné une erreur : (404) Introuvable." Then
                status = "404"
                contentlength = 0
                typefile = "Introuvable"
            Else
                status = "erreur"
                contentlength = 0
                typefile = "???"
            End If
        End Try
    End Sub

End Class

Conclusion :


...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (hvb)