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

Папка в VB

 
 

Подключи библиотеку Microsoft Scriptig Runtime, на форму кинь 4 кнопки, 6 меток. Щас мы сделаем программу, которая будет создовать, удалять, копировать, перемещать, выводить размер, дату создания.... Пример я представлял двумя способами, ты можешь использовать какой хочешь. Код:

Dim fso As New FileSystemObject, f As Folder ' Создаем объект FSO и объявляем переменную f для работы с папками

Private Sub Command1_Click()
fso.CreateFolder ("c:111111") ' Для создания папки есть метод CreateFolder
End Sub

Private Sub Command2_Click()
' Способ 1
Set f = fso.GetFolder("c:111111")
f.Delete True
' Способ 2
'fso.DeleteFolder ("c:111111")
End Sub

Private Sub Command3_Click()
' Способ 1
Set f = fso.GetFolder("c:111111")
f.Copy "c:games"
' Способ 2
'fso.CopyFolder "c:111111", "c:games"
End Sub

Private Sub Command4_Click()
' Способ 1
Set f = fso.GetFolder("c:111111")
f.Move "c:games" ' только не забывай в самом конце папки ставить "", а то при перемещении и копировании не сработает
' Способ 2
'fso.MoveFolder "c:111111", "c:games"
End Sub

Private Sub Form_Load()
' Узнаем есть папка 111111, если нет то сообщаем(метод возвращает False), а если есть то выводим все данные о ней(метод возвращает True)
If fso.FolderExists("c:111111") = True Then

Set f = fso.GetFolder("c:111111")
' Дата создания
Label1.Caption = "Файл создан:" & f.DateCreated
' Дата изменения
Label2.Caption = "Файл изменен: " & f.DateLastModified
' Дата открытия
Label3.Caption = "Файл открыт:" & f.DateLastAccessed
' Имя папки родителя
Label4.Caption = "Папка родич(т.е. та папка в которой эта папка находится): " & f.ParentFolder
' Путь к папке
Label5.Caption = "Путь: " & f.Path
' Размер
Label6.Caption = "Размер: " & f.Size / 1024 ' здесь я написал / 1024, чтоб в килибайты перевести

Else
MsgBox "Такой папки не существует", 16, ""
End If
End Sub

По началу может показаться что пример сложный, т.к. много всяких новых методов, НО не обязательно их помнить(ты что думаешь, что я их все наизусть знаю?), просто ставишь имя переменной(здесь f), потом точку, и у тебя список выпадает, в нем всего штук 10 методов, а по названию можно определить нужный. Исходник качай Отсюда


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

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




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