VPF::Создать каталоги - Форум программистов

Bogdan1024

Дата 2.3.2007, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1436
Регистрация: 28.9.2005
Где: Киев

Репутация: нет
Всего: 13

У кого-нить есть код на VBScript с исп. FileSystemObject для создания папки? Например, есть путь "c:\a\b\c", ни одна папка не создана, нужно создать сначала а, потом b, а потом c (если создавать сразу, то вываливается ошибка). Как написать такое я знаю, но это наверняка это уже 1000 людей до меня писало... smile

--------------------

Black_Star

Дата 2.3.2007, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

mkDir

Akina

Дата 3.3.2007, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

FileSystemObject.CreateFolder() создает каталог.

Цитата(Bogdan1024 @ 2.3.2007, 18:51

)

Как написать такое я знаю

Ну и напиши.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

bom

Дата 3.3.2007, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6

Bogdan1024
Так еще ни кто не писАл:

Код


Option Explicit
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Private Sub Command1_Click()
  MmkDir "c:\a\b\c"
End Sub

Sub MmkDir(path As String)
Dim Security As SECURITY_ATTRIBUTES, i As Integer, path2() As String, temp As String
path2 = Split(path, "\")
temp = path2(0) & "\"
For i = 1 To UBound(path2)
temp = temp & path2(i) & "\"
On Error Resume Next
CreateDirectory temp, Security
Next i
End Sub

Эксклюзив, так сказать smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »