VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Скачать файл

Visual Basic 6
Скачать файл
Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As _
Long

Public Function DownloadFile(FromPathName As String, ToPathName As String)
On Error Resume Next
'Если загружать файл в папку с длинным путем, могут быть баги
'Чтобы этого избежать, загружаем прямо на диск C:,
'а потом переименовываем
ToPathName2 = "C:\" + CStr(Int(Rnd * 10000)) + ".tmp"
If URLDownloadToFile(0, FromPathName, ToPathName2, 0, 0) = 0 Then
Name ToPathName2 As ToPathName
DownloadFile = True
Else
On Error Resume Next
Kill ToPathName2
DownloadFile = False
End If
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Скачать файл  
Powered by Exponenta -