VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Библиотека кодов
	Работа с файлами/директориями

	Создание директории любой степени вложености
	Данный пример работает на всех версиях ВБ (5 и 6, поскольку более старые версии ВБ я практически не видел). Sub MakeDirPath(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 MakeDirPath("c:\1\2\3\4\") End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)