| Вопрос: Создание папки | Добавлено: 14.03.07 16:03 |
Автор вопроса:  KreAtoR
|
| Ответы | Всего ответов: 23 |
|
Номер ответа: 16 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #16 | Добавлено: 14.03.07 18:07 |
|
осталось разобраться как сразу можно несколько папок
Option Explicit
]
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() Dim fbs As Long For fbs = 0 To 5 Step 1 MkDir "c:\1" & fbs + 1 'Gorizontalno Next fbs End Sub Private Sub Command2_Click() Call MakeDirPath("C:\Raz\1\2\3\Stop\" 'Wertikalno
End Sub |
||
|
Номер ответа: 17 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #17 | Добавлено: 14.03.07 18:14 |
|
Dim s As Variant
Dim stroka As String, letter As String stroka = "" s = Split(Text1.Text, "\"
For i = 0 To UBound(s) - 1 stroka = stroka & s(i) & "\" Next i MsgBox stroka попробуй. |
||
|
Номер ответа: 18 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #18 | Добавлено: 14.03.07 18:22 |
| все установил все работаееет пасибоооочки огромное | ||
|
Номер ответа: 19 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #19 | Добавлено: 14.03.07 18:23 |
|
попробуй.
а куда это желательно встывить в кнопку я так прикинул |
||
|
Номер ответа: 20 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #20 | Добавлено: 14.03.07 18:26 |
Алляй кептен Арсений ты чудо, Боцман ты тоже  )))))) пойду радоваться. Пригласил бы вас на пиво, но вы не приедете 
|
||
|
Номер ответа: 21 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #21 | Добавлено: 14.03.07 18:32 |
|
2KreAtoR: А ты по почте вышли...
|
||
|
Номер ответа: 22 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #22 | Добавлено: 14.03.07 18:54 |
|
ТОчно, а чтоб не забыл вот тебе пример,
созданиия папок русского алфавита в папке ABC. Private Sub Command3_Click()
MkDir "c:\ABC" Dim fbs As Long, z As String For fbs = 192 To 223 Step 1 'ïåðåáèðàåì îò À äî ß z = Chr(fbs) Select Case fbs Case 201, 218, 219, 220 ' èñêëþ÷àåì áóêâû É,Ú,Ü,Û GoTo qw: 'ïåðåñêî÷èì ÷àñòü êîäà End Select MkDir "c:\ABC" & "\" & z 'Ñîçäàåì ïàïêè âíóòðè ïåðâè÷íîé ïàïêè qw: 'êîíåö ïåðåñêàêèâàíèÿ Next fbs End Sub не идет кодировка, ты уж без коментариев используй. |
||
|
Номер ответа: 23 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #23 | Добавлено: 14.03.07 18:57 |
|
)))))
|
||