ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB. Excel. Проверка наличия директории и ее создание.
8 сообщений из 8, страница 1 из 1
VB. Excel. Проверка наличия директории и ее создание.
    #32686747
wMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wMaster
Гость
Задача простая. Надо писать файл в директорию, например c:\somedir.

Как проверить есть ли она, и если нет создать ее?
...
Рейтинг: 0 / 0
09.09.2004, 10:51
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #32686869
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Код: plaintext
1.
Sub test11()    If Dir("c:\\somedir", vbDirectory) = "" Then        MkDir "c:\\somedir"    End IfEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
09.09.2004, 11:25
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #32686894
МаксимВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МаксимВ
Участник
Код: plaintext
1.
2.
Private Sub Form_Load()
    If Len(Dir("c:\somedir", vbDirectory)) =  0  Then MkDir "c:\somedir"
End Sub
...
Рейтинг: 0 / 0
09.09.2004, 11:30
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #32686904
МаксимВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МаксимВ
Участник
Код: plaintext
1.
2.
Private Sub Form_Load()
    If Len(Dir("c:\somedir", vbDirectory)) =  0  Then MkDir "c:\somedir"
End Sub
...
Рейтинг: 0 / 0
09.09.2004, 11:32
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #32687111
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
а еще так умею
Код: plaintext
1.
2.
3.
4.
Dim fso As New FileSystemObject
If fso.FolderExists("c:\1") Then
    fso.GetFolder("C:\").SubFolders.Add ("123")
End If
...
Рейтинг: 0 / 0
09.09.2004, 12:32
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
VB. Excel. Проверка наличия директории и ее создание.
    #37089670
Фотография Gabit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gabit
Участник
Здравствуйте !

С помощью FSO можно сразу создать вложенные каталоги ?
Т. е. мне надо создать на диске Це Каталог и подкаталог.
C:\Каталог\Подкаталог

Оба не существуют.
Такая попытка не работает:
Код: plaintext
1.
   fso.CreateFolder ("C:\Каталог\Подкаталог")
...
Рейтинг: 0 / 0
01.02.2011, 05:50
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #37089706
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
нет, создавайте сначала родительский, а потом и дочерний каталоги
...
Рейтинг: 0 / 0
01.02.2011, 08:17
| Ответить | Цитировать | Написать  
VB. Excel. Проверка наличия директории и ее создание.
    #37090086
Фотография Gabit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gabit
Участник
Понятно, спасибо.
...
Рейтинг: 0 / 0
01.02.2011, 11:25
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB. Excel. Проверка наличия директории и ее создание.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37090086&tid=2159003]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 13ms
total:  145ms
созд. / загр.: 145ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]