VB.NET & fichier internet
Tr0m
Messages postés
29
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
27 janvier 2006
-
27 janv. 2006 à 14:48
cs_et1 Messages postés 250 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 27 janvier 2011 - 28 janv. 2006 à 19:53
cs_et1 Messages postés 250 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 27 janvier 2011 - 28 janv. 2006 à 19:53
1 réponse
cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
10
28 janv. 2006 à 19:53
28 janv. 2006 à 19:53
Je suis pas du tout sur que ça marche, mais essaye quand même...
Private Function download_file(ByVal url As String, ByVal chemin As String) As String
Dim dl As New System.Net.WebClient
Dim n As Long = Environment.TickCount
Try
dl.DownloadFile(url, chemin)
dl.Dispose()
Return "téléchargement effectué en " & ((Environment.TickCount - n) / 1000) & " secondes"
Catch ex As Exception
Return ex.Message.ToString
End Try
End Function
'Puis placer la procedure :
download_file("http://portails/doc/idc_cgi_isapi.dll'IdcService=GET_FILE&dDocName=xxFILExx&allowInterrupt=1&RevisionSelectionMethod=Latest", "C:\dossier\fichier.xls")
-----
www.et1-vb.net
et1.vb@hotmail.fr
-----
Private Function download_file(ByVal url As String, ByVal chemin As String) As String
Dim dl As New System.Net.WebClient
Dim n As Long = Environment.TickCount
Try
dl.DownloadFile(url, chemin)
dl.Dispose()
Return "téléchargement effectué en " & ((Environment.TickCount - n) / 1000) & " secondes"
Catch ex As Exception
Return ex.Message.ToString
End Try
End Function
'Puis placer la procedure :
download_file("http://portails/doc/idc_cgi_isapi.dll'IdcService=GET_FILE&dDocName=xxFILExx&allowInterrupt=1&RevisionSelectionMethod=Latest", "C:\dossier\fichier.xls")
-----
www.et1-vb.net
et1.vb@hotmail.fr
-----
