1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Function Telechargment_fichier_extranet() As String
Dim ID As String = "XXXX", MDP As String = "XXXX"
Dim Source As String = "http://extranet-xxxx.com/app/Effectifs/report_manager.php?report_name=specExp01&isw=2400&ish=1263&sid=tM6HGmRvZPFaSK4jx3dr"
Dim Download As New System.Net.WebClient()
Download.Credentials = New System.Net.NetworkCredential(ID, MDP)
Dim CheminFichier As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\" & My.Application.Info.ProductName & "\Import_BDD_" & DateAndTime.Now.Year & "-" & DateAndTime.Now.Month & "-" & DateAndTime.Now.Day & " - " & DateAndTime.Now.Hour & "_" & DateAndTime.Now.Minute & ".txt"
Test_Dossier(CheminFichier)
Try
Download.DownloadFile(Source, CheminFichier)
Download.Dispose()
Return CheminFichier
Catch ex As Exception
Return ex.Message
End Try
End Function
Sub Test_Dossier(ByVal CheminComplet As String)
Dim Dossier As New DirectoryInfo(Path.GetDirectoryName(CheminComplet))
If Dossier.Exists = False Then
Dossier.Create()
End If
End Sub |
Partager