VBNet - Форум - Ничего не выходит, загрузка из Нета!

Вопрос: Ничего не выходит, загрузка из Нета! Добавлено: 04.09.05 22:46

Автор вопроса: «UL.eXe» | ICQ: 197.895.916.247

Private 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 Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function

Private Sub DownloadME_Click()
Call DownloadFile("http://какой-то файл с сервера...", "c:\???")
End Sub

Подскажите пожалуйста!
Мне необходимо скачать любой файл из инета по url, как написать, чтобы любой файл сохранялся со своим скачиваемым именем?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #1	Добавлено: 04.09.05 22:47
	Забыл Не просто именем, но и с расширением! Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #2	Добавлено: 04.09.05 22:51
	Call DownloadFile("http://какой-то файл с сервера...", "c:\???" FileFromServer$ = "http://localhost/file.txt" tmp$ = Split(FileFromServer$,"/" FileToSave$ = tmp$(Ubound(tmp$)) Call DownloadFile(FileFromServer$, "C:\" & FileToSave$) не тестил, ну как-то так.. Ответить

Номер ответа: 3 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #3	Добавлено: 04.09.05 22:53
	не тестил, ну как-то так.. Спасибочки! Ща попробую, напишу... Ответить

Номер ответа: 4 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #4	Добавлено: 04.09.05 23:03
	Добавил к твоему коду (выдавало ошибку): Dim FileFromServer$ Dim FilToSave$ Dim tmp$ Но появилась новая ошибка - ( Expected array Ответить

Номер ответа: 5 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #5	Добавлено: 04.09.05 23:04
	Ошибка в строке с: UBound Ответить

Номер ответа: 6 Автор ответа: E-Man Вопросов: 3 Ответов: 132	Профиль \| \| #6	Добавлено: 04.09.05 23:15
	обьяви переменную tmp$ как массив. то есть: Dim tmp$() Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 04.09.05 23:27
	да, объяви как массив, всё остальное не обязательно. Ответить

Страница: 1 |