| Вопрос: Существуют ли папка, при отсутствии создать ее. | Добавлено: 07.10.07 11:00 |
Автор вопроса:  ASPIK | ICQ: 47-33-00-99-2 |
|
Dim s As String
Open "data.ini" For Input As #1 While Not EOF(1) If Dir$(s) = "" Then MkDir (s) End If Line Input #1, s Wend Close #1 Почему ошибка времени выполнения ERROR:75 при наличии каталогов. Проблема в том, что если папок, прописанных в Data.ini нет, то они создаеются, если они есть выдается ошибка, помогите пожалуйста, что не так в коде? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  ай ICQ: нету Вопросов: 1 Ответов: 3 |
Web-сайт: Профиль | | #1 | Добавлено: 07.10.07 12:13 |
|
Private Sub Command1_Click()
fold = Dir("c:\rec", vbDirectory) If fold = "" Then MkDir ("c:\rec" 
End Sub Проверяет наличие папки с именем rec и при отсутствие создаёт её. |
||
|
Номер ответа: 2 Автор ответа: ASPIK ICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #2 | Добавлено: 07.10.07 12:15 |
| спасибо. | ||
|
Номер ответа: 3 Автор ответа: Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230 |
Web-сайт: Профиль | | #3 | Добавлено: 07.10.07 18:34 |
|
'================================================='
' создание пути любой степени вложенности ' '-------------------------------------------------' ' возвращает пустую строку, если путь создан, или ' ' папку, которую невозможно создать (при ошибке) ' '=================================================' Public Function MkDir2(path As String) As String Dim i As Long, crPath As String On Error GoTo i_err Do i = InStr(i + 1, path & "\", "\"
crPath = Left$(path, i - 1) If Right$(crPath, 1) <> ":" Then If Dir$(crPath, vbDirectory + vbSystem + vbHidden) = "" Then MkDir crPath Else If Dir$(crPath, vbSystem + vbHidden) <> "" Then MkDir2 = crPath: Exit Function End If End If Loop Until i >= Len(path) Exit Function i_err: MkDir2 = crPath End Function |
||
|
Номер ответа: 4 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 12.10.07 11:21 |
| Почему всех так пугает FSO? | ||
|
Номер ответа: 5 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #5 | Добавлено: 12.10.07 14:51 |
| Меня допустим не пугает ФСО. Но зачем подключать мощную библиотеку для того чтобы проверить наличие и создать папку/файл. Из пушки по воробьям.ИМХО. | ||
|
Номер ответа: 6 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #6 | Добавлено: 12.10.07 20:40 |
|
Почему всех так пугает FSO? Из пушки по воробьям. Или мортиры 
|
||
|
Номер ответа: 7 Автор ответа: айICQ: нету Вопросов: 1 Ответов: 3 |
Web-сайт: Профиль | | #7 | Добавлено: 13.10.07 17:53 |
| Во-во. | ||
Страница: 1 |