Sub DownloadXML(osmFile As String) As ResumableSub
Dim j As HttpJob
Dim Link As String=proxiServerURL & osmFile
j.Initialize("", Me)
j.Download(Link)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
xmlData=j.GetString
Log("[" & DateTime.Time(DateTime.Now)&"] " & "Archivo OSM descargado...")
End If
j.Release
Return j.Success