Обработка ошибок в VBA. Run-time error 58 (File already exists)

@Cristofer · Регистрация: 25.11.2009

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

Здравствуйте уважаемые завсегдатаи данного форума!)))
Я новичок потому прошу не слишком критично относиться к моему вопросу.
А вот и сам вопрос.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
ChDrive (E)
 
On Error GoTo 1
MkDir ("E:\Mydir") 'Создание директории E:\Mydir
1: If Err.Number <> 0 Then
MsgBox ("File is exists!")
GoTo 2
End If
2:
 
On Error GoTo 3
FileCopy "E:\Open1.txt", "E:\Mydir\1Open1.txt"
[U]Name "E:\Mydir\1Open1.txt" As "E:\Mydir\1111.txt"[/U]
3: If Err.Number <> 0 Then
MsgBox ("Name is exists!")
End If
4: MsgBox ("End of programm!!")
End Sub

Добавлено через 2 минуты
На подчеркнутой строке появляется ошибка run-time error 58 (File already exists).
Скажите мне пожалуйста, почему она возникает.
Заранее спасибо.

@Апострофф · 16.10.2011, 21:04

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

File already exists

Файл уже существует - стандартное сообщение Винды!
Это значит, что была перед этим нажата CommandButton1 и никто не позаботился об удалении "E:\Mydir\1111.txt" после этого.

А вот здесь что такое (E)?

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

ChDrive (E)

@Cristofer · 16.10.2011, 21:10 **[ТС]**

Это да, но оно появляться не должно, потому что я ошибку пытаюсь обработать строчкой
On Error GoTo 3 а она не срабатывает почему-то...

@Казанский · 16.10.2011, 21:22

1.

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

ChDrive (E)

Е - это переменная, содержащая букву диска?
Наверно, Вы имели в виду ChDrive ("E") . В данном случае это неважно, т.к. далее все пути указаны полностью, но в другой ситуации...

2. Видимо, Вы запускаете программу второй раз и файл действительно существует. Вас удивляет то, что не происходит обработка ошибки?
Дело в том, что первый раз ошибка возникает на операторе MkDir ("E:\Mydir"), т.к. папка уже существует. Управление передается в обработчик ошибки на метку 1. Обработка ошибки обязательно должна завершаться оператором Resume, а здесь этого не происходит, и происходит вторая ошибка. Она уже не обрабатывается, и происходит аварийный останов.
То есть простейшее решение - заменить GoTo 2 на Resume 2 .

3. Грамматика: "File exists!", "End of program!!"

@Апострофф · 16.10.2011, 21:36

А вообще говоря, On Error GoTo ... и куча меток говорит о неверном стиле программирования.
Старайтесь избегать этого - например так:

Visual Basic
1
2
3
If Dir("E:\Mydir", vbDirectory) = "" Then MkDir "E:\Mydir"
If Dir("E:\Mydir\1111.txt", vbNormal) <> "" Then Kill "E:\Mydir\1111.txt"
FileCopy "E:\Open1.txt", "E:\Mydir\1111.txt"

@Казанский · 16.10.2011, 22:32

Обработчик ошибок следует располагать отдельно от кода. Например, так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
On Error GoTo err_handler
MkDir ("E:\Mydir") 'Создание директории E:\Mydir
FileCopy "E:\Open1.txt", "E:\Mydir\1Open1.txt"
Name "E:\Mydir\1Open1.txt" As "E:\Mydir\1111.txt"
MsgBox ("End of programm!!")
Exit Sub
 
err_handler:
MsgBox "Error " & Err & ": " & Err.Description
Resume Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Cristofer 0 / 0 / 0 Регистрация: 25.11.2009 Сообщений: 17
	16.10.2011, 21:10 [ТС]
	Это да, но оно появляться не должно, потому что я ошибку пытаюсь обработать строчкой On Error GoTo 3 а она не срабатывает почему-то... 0