[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Создание директории - Visual Basic (Создание директории - Visual Basic)
Создание директории - Visual Basic
ilimДата: Вторник, 15.11.2011, 23:11 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Создание директории - Visual Basic
===================================================
Sub MakeDir(dirname As String)
Dim i As Long, path As String
Do
i = InStr(i + 1, dirname & "\", "\")
path = Left$(dirname, i - 1)
If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
MkDir path
End If
Loop Until i >= Len(dirname)
End Sub

Private Sub Command1_Click()
Call MakeDir("C:\Aleks_Soft\1\2\3\")
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Создание директории - Visual Basic (Создание директории - Visual Basic)
Страница 1 из 11
Поиск: