Программирование
Веб программирование

Директории visual basic

 
 

Для создания папок есть функция MKDir

MkDir "c:44" 'Создаем папку 44

RmDir "c:44" ' Удаляем папку 44

Есть вопросы? Спроси на нашем форуме!!
Владик = wolt6 [22.03.2011 10:14]

Спасибо пригодилось :)

Гость [20.05.2011 14:10]

Угу =))

Макс [26.03.2012 14:30]

Так можно и вирус создать! Спасибо=)

geranazavr555 [05.04.2012 20:45]

Макс, да, но только это вряд ли можно считать полноценным вирусом.

Гость [18.11.2012 20:59]

Макс, вирус создать, что бы папки создавал? Молодец, у тебя Ай кю 250

андр... [05.12.2012 21:12]

"c:44"(!) возможно так правильней "c:44"
или не имеет значения ?

андр... [05.12.2012 21:21]

здесь косая черта что удаляеться?

Алексей(alex13sh) [05.12.2012 22:27]

да так правильнее "c:" chr(92) & "44"
chr(92) - это код той самой черты

alex13sh300 [16.06.2013 21:03]

Чтоб ставить такую черту ( \ )
надо писать 2 таких черт подряд ( \ \ ) без робела меж ними

alex13sh300 [16.06.2013 21:05]

C:\11

alex13sh300 [16.06.2013 21:07]

\ = 2 * \
\\ = 6 * \

Ivan40 [19.07.2013 12:48]

От себя добавлю, что можно также создать произвольную директорию. А также её удалить. Для этого делаем текстовое окно Text1 и 2 кнопки Command1 и Command2. А для удаления или создания директории пишем к ней путь в текстовом окне.

Вот код создания произвольной директории:

Private Sub Command1Click()
MkDir (Text1)
End Sub

Код удаления:

Private Sub Command2
Click()
RmDir (Text1)
End Sub

Пробуйте! Удачи! :)

Shade970 [19.07.2013 13:33]

Option Explicit

Private Type SECURITYATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" _
(ByVal lpPathName As String, _
lpSecurityAttributes As SECURITY
ATTRIBUTES)
As Long

Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" _
(ByVal lpPathName As String) _
As Long


Dim attributws As SECURITY
ATTRIBUTES

Private Sub cmdCreateClick()

Dim lngCreate As Long

lngCreate = CreateDirectory("C:\Имя папки", attributws)
If (lngCreate = (0)) Then MsgBox "Неудача."

End Sub

Private Sub cmdDelete
Click()

Dim lngDelete As Long

lngDelete = RemoveDirectory("C:\Имя папки")
If (lngDelete = (0)) Then MsgBox "Неудача."

End Sub

Shade970 [19.07.2013 13:35]

Между SECURITY и ATTRIBUTES должно быть подчеркивание снизу визде "_" без кавычек

yulius [09.12.2014 01:12]

Вы Волшебники, а я только учусь! Подскажите, пожалуйста, надо чтобы была создана папка с названием текущей даты календаря.

pjp07190 [09.12.2014 08:22]

Dim d As String
Private Sub Command1_Click()
d = Date
MsgBox d
MkDir "c:\" & d
End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.