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

Soyez le premier à donner votre avis sur cette source.

Vue 10 045 fois - Téléchargée 507 fois

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 :


...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

fg85
Messages postés
370
Date d'inscription
dimanche 28 mars 2004
Statut
Membre
Dernière intervention
13 avril 2007
-
Comment faire pour y accéder en http ?
hvb
Messages postés
961
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
hein? on utilise un objet HttpWebRequest qui gere le protocole http... qu'est ce que tu veux faire toi?
fg85
Messages postés
370
Date d'inscription
dimanche 28 mars 2004
Statut
Membre
Dernière intervention
13 avril 2007
-
Euh rien en fait ,j'avais juste une idée mais cela ne fonctionnera pas, il faut avoir asp ??

------------------------
http://fg.logiciel.free.fr

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.