| |
|
|
| | FileCopy() - работает только если на моем компе из одного катаога в другой. А как из и-нета это сделать?
Пример:
Нужно скопировать файл
http://my-immortal.fanphoto.info/data/media/my-immortal/94/4.jpg
в Мои документы
Спасибо. | |
| |
| |
| |
|
|
| | Где-то ранее скопипастил:
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
|
| |
| |
| |
| |
|
|
| | Спасибо!
Все работает.
А как скопировать ВСЕ файлы из папки к себе?
Как их перебрать, если неизвестно их название и кол-во в папке? | |
| |
| |
