Проверка наличие архива в папке

@ASSEI · Регистрация: 18.10.2012

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

Ребята подскажите где я. что не так делаю. не проверяет наличие архива в папке?:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim RetVal
Dim othet As String 
'проверка наличие архива
 If Dir(rrr$) <> "" Then 'РУГАЕТСЯ НА ЭТУ СТРОКУ!!!
   MsgBox "архив существует!", 64, "СООБЩЕНИЕ!"
  Else
     MsgBox "архива нет!", 64, "СООБЩЕНИЕ!"
End If
 
othet = ("C:\Users\Public\Desktop\ОТЧЕТЫ")
ish$ = Chr(34) & othet & "\*.xlsx" & Chr(34) 
rrr$ = Chr(34) & App.Path & "\arhiv\Архив_отчет_.rar" & Chr(34) 
 
'архивация с установкой всех требуемых параметров архива
RetVal = Shell(App.Path & "\BD\rar.exe m -y -m5 -ep -agmm.YYYY " & rrr$ & " " & ish$, vbNormalFocus)

@vice4 · 16.06.2017, 12:28

App.path задает путь к Вашей программе. Если Вы установили программу на диск D в папку 123, то запуская Вашу программу и вызывая msgbox App.path Вы увидите D:\123. Если же Вы сделаете такой вызов - msgbox "App.path" - то и получите App.path.

Добавлено через 5 минут
App.path задает путь к Вашей программе. Если Вы установили программу на диск D в папку 123, то запуская Вашу программу и вызывая msgbox App.path, Вы увидите D:\123. Если же Вы сделаете такой вызов - msgbox "App.path" - то и получите App.path.
Запомните app.path в 99% случаев для Вас должен писаться без кавычек.

Вот еще пример, попроще

Visual Basic
1
2
3
4
dim a as string
a="123"
msgbox a
msgbox "a"

Что выдаст программа сначала, а что потом? Попробуйте решить без запуска в VB.

@ASSEI · 16.06.2017, 12:37 **[ТС]**

с начало 123, потом - а

@vice4 · 16.06.2017, 13:49

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

с начало 123, потом - а

Всё верно. Аналогично и app.path. Удачи.

@fever brain · 17.06.2017, 05:47

Если интересно, архиватор WinRar распознает тип заархивированного файла даже если сменить расширение
тоесть если это был rar а потом сделаем dll или exe то при наведении курсора системное меню будет состоять из предложений WinRar-а распаковать, открыть, извлечь в указанную папку и тд а все потому что в начале файла
устанавливаются параметры архива, если архив запаролен то и пароль ))

@vice4 · 20.06.2017, 10:21

Не по теме:

Сообщение от fever brain

WinRar

Не люблю по\латное ПО. Имхо, 7zip лучше.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	16.06.2017, 12:37 [ТС]
	с начало 123, потом - а 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	17.06.2017, 05:47
	Если интересно, архиватор WinRar распознает тип заархивированного файла даже если сменить расширение тоесть если это был rar а потом сделаем dll или exe то при наведении курсора системное меню будет состоять из предложений WinRar-а распаковать, открыть, извлечь в указанную папку и тд а все потому что в начале файла устанавливаются параметры архива, если архив запаролен то и пароль )) 0