VBA: работа с директориями

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Гость

Дата: Среда, 13.06.2012, 12:10 | Сообщение № 1

Группа: Гости

Подскажите, пожалуйста, как на VBA написать

Если нету папки "c:\test" то создать папку "c:\test"

Ответить

Alex_ST

Дата: Среда, 13.06.2012, 12:36 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

[vba]

Code

Sub Chk_Folder()
     Const sPath$ = "C:\test"
     On Error Resume Next
     GetAttr (sPath)   ' если папка не существует, то будет ошибка
     If Err Then MkDir sPath ' если была ошибка, то создать папку
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 13.06.2012, 12:36

Ответить

Гость

Дата: Среда, 13.06.2012, 12:40 | Сообщение № 3

Группа: Гости

Alex_ST, спасибо!

Ответить

Jhonson

Дата: Среда, 13.06.2012, 12:49 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Можно еще так:
[vba]

Code

Sub a()
Const s$ = "C:\test"
If Dir(s, vbDirectory) = "" Then MkDir s
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 13.06.2012, 12:50

Ответить

RAN

Дата: Среда, 13.06.2012, 14:32 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А мне это дюже понравилось.

Быть или не быть, вот в чем загвоздка!

Ответить

Alex_ST

Дата: Среда, 13.06.2012, 16:23 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

WinAPI-функции штука, конечно, мощная, но не люблю я их, ибо не знаю... А не знаю, т.к. не понимаю ввиду множества их и зело длинных имён, которые фиг запомнишь biggrin

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

VBA: работа с директориями

Страница 1 из 1
1