Discussion :

[gastoncs]

Bonsoir,

voila tout est dans le titre je souhaite connaitre la date de création d'un fichier .txt ce trouvant a une adresse web spécifique.
Actuellement j'arrive a recupérer le fichier texte avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim chaine As String = client.DownloadString(url_fichier).Replace(Convert.ToChar(10), vbCrLf)

Mais j'aurais voulu savoir si la classe WebClient permet de connaitre la date de création du fichier. (je n'ai rien trouvé dans cet imbuvable msdn)
D'avance merci

[wallace1]

Bonsoir,

En procédant ainsi tu récupères le contenu du fichier texte et cela ne peut pas convenir.

---> Donc il faut :

1- Télécharger le fichier à un emplacement physique de ton système :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   Using wc As New WebClient
            wc.DownloadFile("TON_URL.TXT", "L_EMPLACEMENT_SUR_TON_SYSTEME.TXT")
        End Using

NB : Si ton fichier est relativement lourd en poids il est recommandé d'utiliser la méthode DownloadFileAsync et les gestionnaires d’événement DowloadFileCompleted et DownloadProgressChanged pour afficher la progression.


2- Récupérer la date de création d'un fichier sur le système à un emplacement précis (ex : "D:\Download\TonFichier.txt") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   Dim d as date = System.IO.File.GetCreationTime("L_EMPLACEMENT_SUR_TON_SYSTEME.TXT")
   MsgBox(d.ToString("dd/MM/yyyy"))

NB : il est possible de récupérer la taille d'un fichier distant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  Try
            Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("TON_URL.TXT")
            req.Method = "HEAD"
            Using resp As HttpWebResponse = req.GetResponse()
                Dim ContentLength% = resp.ContentLength
                MsgBox(ContentLength.ToString)
            End Using
        Catch ex As Exception
            'ne pas hésiter à ajouter les exceptions (hote non joignable, ...... etc...)
            MsgBox(ex.ToString)
        End Try

En espérant t'avoir aidé.

A+

[gastoncs]

Merci pour ton aide.

[ebastien]

Bonjour,
A mon avis, en procédant ainsi, la date retournée sera la date de création du fichier sur le poste locale (date du download) et non sur le serveur distant, non ?

[wallace1]

Bonjour,
A mon avis, en procédant ainsi, la date retournée sera la date de création du fichier sur le poste locale (date du download) et non sur le serveur distant, non ?

salut,

En effet je n'y avais pas pensé et c'est tout a fait logique.....
Je suis encore au taf pour l heure mais si qqun peut tester a l occaz, ca m intrigue pour le coup..o_O

[gastoncs]

afin de gagner du temps en évitant de télécharger le fichier j'ai adopté ta méthode qui consiste a récupérer la taille du fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Try
            Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("TON_URL.TXT")
            req.Method = "HEAD"
            Using resp As HttpWebResponse = req.GetResponse()
                Dim ContentLength% = resp.ContentLength
                MsgBox(ContentLength.ToString)
            End Using
        Catch ex As Exception
            'ne pas hésiter à ajouter les exceptions (hote non joignable, ...... etc...)
            MsgBox(ex.ToString)
        End Try

ca fonctionne a merveille,