Virus-ON, 1) права на скачивание есть? И браузером эта ссылка тоже пустая, там качать нечего.
Немножко приукрасил код
InitNetwork()
URL$ = InputRequester("Введите", "URL нужного вам файла:", "")
NAME$=ReverseString(URL$)
A$ = StringField(NAME$, 1, "/")
A$=ReverseString(A$)
NAME$ = StringField(A$, 2, ".")
NAME$=NAME$+" |*."+NAME$
Filename$ = SaveFileRequester("Выберите папку, в которую сохраним файл", A$, NAME$, 0)
If ReceiveHTTPFile(URL$, Filename$)
MessageRequester("", "Загрузка файла "+A$+" успешно завершена", #PB_MessageRequester_Ok)
Else
MessageRequester("", "Ошибка. Не удалось скачать файл "+A$, #PB_MessageRequester_Ok)
EndIf