| Вопрос: Помогите разобраться... | Добавлено: 14.09.04 05:51 |
Автор вопроса:  Piton_4m
|
|
Мне нужно чтобы программа проверяла существует ли каталог, если нет то нужно его создать,,,
If Dir$(App.Path & "\data\") = "" Then On Error GoTo y MkDir (App.Path & "\data\") End If Exit Sub y: Exit Sub Всё вроде просто но если не писать On error goto y вылетает ошибка доступа к файлу...... Помогите исправить. Или может я где ошибся..??? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:   Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | | #1 | Добавлено: 14.09.04 06:44 |
|
Dim st As String
sPath = App.Path & "\data\" If Dir$(sPath, vbDirectory) = "" Then MkDir (sPath) End If |
||
|
Номер ответа: 2 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 14.09.04 10:34 |
|
Так прикольней  :
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As Long) As Long Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Private Sub MkDirEx(sPath As String) 'Создание каталога любой степени вложенности  im ci As Long, sArray() As String, sBuffer As String
If Len(sPath) = &H0 Then Exit Sub sArray = Split(sPath, "\" 
For ci = 0 To UBound(sArray) - 1 sBuffer = sBuffer & sArray(ci) & "\" If PathFileExists(sBuffer) = &H0 Then Call CreateDirectory(sBuffer, ByVal &H0) Next End Sub |
||
|
Номер ответа: 3 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #3 | Добавлено: 14.09.04 13:59 |
| sne, а что если твой код пойдет в справочник по VB6/.NET? Ты как? | ||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 14.09.04 15:57 |
| Мне то что, жалко что-ль... Кому надо - берите... | ||
|
Номер ответа: 5 Автор ответа: Last_SantaICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | | #5 | Добавлено: 17.09.04 05:51 |
|
sne, Пример классный, спасибо!
Но относительно данного вопроса, зачем стрелять по воробью из гаубицы
Для его целей вполне подойдут стандартные средства ВБ |
||
Страница: 1 |