[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Создание многоуровневых каталогов - Visual Basic (Создание многоуровневых каталогов - Visual Basic)
Создание многоуровневых каталогов - Visual Basic
ilimДата: Вторник, 15.11.2011, 23:12 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Создание многоуровневых каталогов - Visual Basic
===================================================
Иногда приходится анализировать наличие указанного каталога (к примеру, при установке вашей программы на жесткий диск) и создавать новый при его отсутствия. Для этого можно использовать, например, такую процедуру:

Sub CreateLongDir(sDir As String)
Dim sBuild As String, sDirTmp As String, i As Integer
'
sDirTmp = sDir & "\"
i = InStr (sDirTmp, ":")
If i > 0 Then ' задано имя диска
sBuild = Left$(sDirTmp, i) ' имя текущего каталога
sDirTmp = Mid$(sDirTmp, i + 1)
Else
sBuild = "" ' имя текущего каталога
End If
Do ' проверка-создание вложенных каталогов
i = InStr (2, sDirTmp, "\")
If i = 0 Then Exit Do
sBuild = sBuild & Left$(sDir, i - 1)
sDirTmp = Mid$(sDirTmp, i)
If Dir$(sBuild, 16) = "" Then 'нет такого каталога
MkDir sBuild ' создание каталога
End If
Loop
End Sub

Sub Test () ' примеры обращения
' полное имя каталога с именем диска
Call CreateLongDir("C:\Tests\TestDir\NewDir")
' полное имя каталога в текущем диске
Call CreateLongDir("\Current\TestDir\NewDir")
' имя нового каталога относительно текущего каталога
Call CreateLongDir("Current\TestDir\NewDir")
End Sub


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