Страница: 1 |
Страница: 1 |
Вопрос: работа с каталогами
Добавлено: 19.05.05 16:06
Автор вопроса: Mag | ICQ: 289414238
Подскажите пожайлуста.
Как узнать существует каталог или нет. Если нет то нужно создать его.
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #1
Добавлено: 19.05.05 16:22
http://www.vbnet.ru/forum/show.aspx?id=74519
Номер ответа: 2
Автор ответа:
User Unknown
Вечный Юзер!
ICQ: uu@jabber.cz
Вопросов: 120
Ответов: 3302
Профиль | | #2
Добавлено: 19.05.05 16:23
Private Sub Command1_Click()
CreateDir "tmp"
End Sub
Sub CreateDir(MyFolder As String)
On Error Resume Next
MkDir "C:\" & MyFolder
End Sub
Номер ответа: 3
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #3
Добавлено: 19.05.05 16:25
If Dir$("Моя Папка", vbDirectory) = "" Then MsgBox "Таки нет такой папки."
Номер ответа: 4
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #4
Добавлено: 19.05.05 16:28
If Dir$("C:\Folder1\", vbDirectory)="" Then
MkDir "C:\Folder1\"
End If
Надо иметь в виду, что если часть пути отсутствует, то Dir сгенерирует
ошибку... То есть, например, если в Dir передавать
C:\Folder1\Folder2\, а папка Folder1 не существует, то тогда будет ошибка.
Номер ответа: 5
Автор ответа:
Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #5
Добавлено: 19.05.05 16:32
ошибку... То есть, например, если в Dir передавать
C:\Folder1\Folder2\, а папка Folder1 не существует, то тогда будет ошибка.
Может, всё-таки, речь идёт о MkDir?
Номер ответа: 6
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #6
Добавлено: 19.05.05 17:24
Сорри, давно на VB6 не программил, перепутал.
Действительно, Dir относится к этому спокойно, а всё сказанное мной
выше относится к MkDir.