VBA winhttp-эквивалент для локального файла

Question

Итак, у меня есть суб, который копирует документы, хранящиеся в нашей интрасети, и сохраняет их на нашем общем диске. Теперь я хотел бы сделать то же самое, но с файлом, хранящимся локально на компьютере пользователя, а не в интрасети. Как я мог это сделать?

Sub intranetPullFile(link, extent, strFile)  
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest") 
WinHttp.Open "GET", link , False 
WinHttp.Send 
arrResponse = WinHttp.ResponseBody 
Set WinHttp = Nothing 
Set oADO = CreateObject("ADODB.Stream") 
oADO.Type = 1 
oADO.Open 
oADO.Write arrResponse 
oADO.SaveToFile strFile, 2 
oADO.Close 
end sub 

Я попытался просто использовать это как их C: .... адрес является ссылкой на файл, но я получаю сообщение об ошибке: URL не использует признанный протокол.

Итак, я отметил ответ, потому что он получил то, что мне было нужно, СПАСИБО! --- все еще любопытно, есть ли «эквивалент локального файла» для того, как работает этот winhttp, но я могу двигаться дальше, так что хорошо. Еще раз спасибо.

Answer 1

Вы можете скопировать и указать новое имя с помощью CopyFile(). Она также может перезаписывать существующий файл, если вы передаете True как 3 пары:

With CreateObject("Scripting.FileSystemObject") 
    .CopyFile strSourceFile, strDestFile, True 
End With 

Answer 2

VBA может сделать это в одной строке без FSO:

FileCopy fullSourcePathandName, fullDestinationPathandName