- Код: Выделить всё
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Но он действует только для отдельных файлов... А как мне скачать полность всю папку, например, на диск C:\?
