ник: ЛМВ
Всем доброго времени суток.
Помогите решить задачу.
Есть адрес в и-нете (например "http://my-immortal.fanphoto.info/data/media/my-immortal/94/")
Там лежат файлы "*.jpg" (например "http://my-immortal.fanphoto.info/data/media/my-immortal/94/4.jpg").
Как скопировать каждый отдельный файл, если известно его название - мне помогли, и я знаю (спасибо за помощь "Lukas"-у) ▼
======================================================
Public Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
Public 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(strURL As String, strFileName As String)
Dim lngRetVal As Long
If strFileName = vbNullString Then
lngRetVal = DoFileDownload(StrConv(strFileName, vbUnicode))
If lngRetVal = 0 Then DownLoadFile = True
Else
lngRetVal = URLDownloadToFile(0, strURL, strFileName, 0, 0)
If lngRetVal = 0 Then DownLoadFile = True
End If
End Function
======================================================
Но как узнать названия всех файлов и их количество по этому адресу - я не знаю.
В пределах одного компа - работает функция ChDir(), но в и-нете она не работает.
КАК ПЕРЕБРАТЬ ВСЕ ФАЙЛЫ по указанному адресу, получить их имена?
ПОМОГИТЕ, ЕСЛИ КТО ЗНАЕТ!!! (HELP, так сказать)
СПАСИБО