работа с ошибками над ошибками из-за ошибок

@mor_sergey · Регистрация: 28.03.2018

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

Ребят схематично покажу.
нужно сослаться на путь в сети.....беда в том, что не знаю букву диска. надо, чтобы если путь не найден, возвращалось на лейбл каждый раз
с кодом ниже возвращается только один раз...не знаю как быть

Visual Basic
1
2
3
4
5
6
aaa = Array("B", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
i = -1
1
 On Error GoTo 1
    ii = ii + 1
 aaa(ii) & "..."

@art1289 · 18.09.2019, 12:51

Добрый день!

вот код если правильно понял

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub fgfg()
    Dim FSO    As Object
    Dim Driv As Variant, Letter As Variant
    Driv = Array("B", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each Letter In Driv
        If FSO.DriveExists(Letter) Then
            Debug.Print Letter & " диск существует"
        Else
            Debug.Print Letter & " диск НЕ существует"
        End If
    Next Letter
End Sub

________________________________________ ________________________________________ ______________________
Надстройка: Macro Tools VBA – инструменты разработки макросов VBATools

Остап Бонд · 18.09.2019, 12:53

Visual Basic
1
2
3
4
5
6
7
8
9
10
aaa = Array("B", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
on error resume next
for i=0to ubound(aaa)
  ChDrive aaa(i)
  if err then
    err.clear
  else
    lbl=lbl & aaa(i) & ""
  endif
next i

@mor_sergey · 18.09.2019, 13:43 **[ТС]**

art1289, Друзья спасибо. пользуюсь кодом Остап Бонд, у меня все уже есть, нужно было только решение...Спасибо товарищи

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	18.09.2019, 13:43 [ТС]
	art1289, Друзья спасибо. пользуюсь кодом Остап Бонд, у меня все уже есть, нужно было только решение...Спасибо товарищи 0

работа с ошибками над ошибками из-за ошибок

Решение