ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
mozers
Цитата:| Вот тебе функция для закачки файла по его url: |
Большое спасибо!
Но если честно, у самого не получается  ...
Я пробовал так:
Код:
' Пробую функцию, но она ругается на то, что я не умею к ней обращаться 
GetFile(http://Link/file.zip, c:\file.zip)
' Пробую с кавычками, но тогда ругается на скобкий, убираю скобкий, ругается на кавычки
GetFile("http://Link/file.zip", "c:\file.zip")
Function GetFile(url, filename)
Set oXmlHttp = CreateObject("Microsoft.XMLHTTP")
Set oStream = CreateObject("AdoDB.Stream")
oStream.Type = adTypeBinary
oXmlHttp.Open "GET", url, False
oXmlHttp.Send
If oXmlHttp.Status <> 200 Then
GetFile = 1
Exit Function
End If
oStream.Open
oStream.Write oXmlHttp.responseBody
oStream.SaveToFile filename, adSaveCreateOverWrite
oStream.Close
GetFile = 0
End Function |
Если не трудно, можешь плиз написать скрипт так, чтобы если ссылка не закачалась (т.е не верная ссылка), то чтобы создавался файл с именем error.tmp (он можен быть пустым - 0 байт - он нужен мне как метка), а если ссылка нормальная, и файл возможно закачать, то чтобы ничего не происходило (т.е сам файл закачивать не нужно).
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
