Где ошибка в программе: код записывает фото, но не сохраняет в заданной директории?

@uxbmw3w · Регистрация: 31.10.2016

Студворк — интернет-сервис помощи студентам

Вот код, он записывает фото но не сохраняет там где хочется

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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://opaaa.ru/xxx.png", "C:\%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"
    MsgBox "OKS !"
End Sub

ну видимо ошибка ( %USERPROFILE% ) и что можно придумать

@Казанский · 25.11.2016, 21:07

uxbmw3w, environ("USERPROFILE")

@uxbmw3w · 25.11.2016, 21:12 **[ТС]**

Казанский,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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://opaaa.ru/xxx.png", "C:\environ("USERPROFILE")\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"
    MsgBox "OKS !"
End Sub

так имеешь ввиду ? если да то в папку не попадает (

Shersh · 25.11.2016, 21:30

uxbmw3w,

Visual Basic
1
DownloadFile "http://opaaa.ru/xxx.png", "C:" & environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"

с колена, но смысл дойдет, надеюсь...

@Pro_grammer · 25.11.2016, 21:37

Сообщение от uxbmw3w

то в папку не попадает

Там C:\ уже есть

Visual Basic
1
2
3
4
5
Private Sub Form_Load()
    Path$ = Environ("appdata") & "\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"
    DownloadFile "http://opaaa.ru/xxx.png", Path$
    MsgBox "OKS !"
End Sub

@uxbmw3w · 25.11.2016, 21:50 **[ТС]**

Shersh,

C:\Users\admin\AppData\Roaming\Microsoft \Internet Explorer\Quick Launch\User Pinned\TaskBar

не попадает фотка, в эту папку.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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://XXX.RU/XXX.png", "C:" & Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.png"
    MsgBox "OKS !"
End Sub

Добавлено через 4 минуты
Pro_grammer,

блин, не ужели это не возможно... не получается

Shersh · 25.11.2016, 21:59

Сообщение от uxbmw3w

"C:"

замените на
"C://" и благодарите АДМИНА за неизлечимые баги.

Добавлено через 3 минуты
А такой вариант -

Visual Basic
1
DownloadFile "http://opaaa.ru/xxx.png", environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"

?

@uxbmw3w · 25.11.2016, 22:03 **[ТС]**

Shersh,
запутался уже. так ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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://xxx.png", "C://" & Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.png"
    MsgBox "OKS !"
End Sub

@uxbmw3w · 25.11.2016, 22:08 **[ТС]**

Shersh,

Спасибо большое,помог все работает.

значит так, если кому то пригодится

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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://opaaa.ru/xxx.png", environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"
 
    MsgBox "OKS !"
End Sub

Shersh · 25.11.2016, 22:15

uxbmw3w, откройте для себя чудеса отладки кода (F8, F9), окна Locals, Immediate - пригодятся.

@uxbmw3w · 25.11.2016, 22:27 **[ТС]**

Shersh,

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

Visual Basic
1
2
3
 DownloadFile "http://mysite/exefile.png", environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk"
 
End Sub

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

Добавлено через 7 минут
понял нужны права от имени администратора

@Pro_grammer · 26.11.2016, 06:39

Сообщение от uxbmw3w

Shersh,
Спасибо большое,помог все работает.

При чем тут Shersh, если правильное решение я дал гораздо раньше:
Где ошибка в программе: код записывает фото, но не сохраняет в заданной директории?
Другое дело, что ты просто невнимательный, а Shersh скопировал моё решение и снова тебе его перепечатал

@uxbmw3w · 26.11.2016, 08:37 **[ТС]**

Pro_grammer,

и тебе спасибо

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.11.2016, 21:07
	uxbmw3w, environ("USERPROFILE") 0

Shersh Заблокирован
	25.11.2016, 22:15
	uxbmw3w, откройте для себя чудеса отладки кода (F8, F9), окна Locals, Immediate - пригодятся. 0

@uxbmw3w 2 / 2 / 0 Регистрация: 31.10.2016 Сообщений: 48
	26.11.2016, 08:37 [ТС]
	Pro_grammer, и тебе спасибо 0