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

Имя диска: - это любая буква англ. алфавита, которой будет называться диск(например a:, C:, d:..)
Путь к папке, на которую ссылается диск - путь к папке, на которую ссылается диск. Например, "c:\disk". В папке Disk будут хранится все файлы и папки, которые юзер перенесет в созданный диск. Т.е. мы не будем делать новый диск, а просто сделаем диск, который будет ссылаться на другой диск. Для начала краткий обзор Dos команд:

1. MD Имя папки - Комманда MD создает папку, т.к. стандартными средствами VB этого сделать нельзя, а использовать API в данной программе просто нет смысла(т.к. все равно будем пользоватся Dos, и одна строчка я думаю не помешает)
2. Exit - Выход из Dos
3. Del путь к папке с файлами - удаляет все файлы в указанной папке(это можно сделать и на VB, написать Kill C:\путь к папке\*.*). Если к этой команде поставить параметр /Q, то удаление будет без разрешения юзера.
4. Subst Имя диска: Путь к папке: - создает диск, ссылающийся на папку. Если указать пааметр /d, то диск удалится(subst имя диска /d).

Теперь к кодингу:
На форме кинь текстовое поле(Text = "", maxLeight = 1), кнопку(Caption = "Создать диск"), еще одну кнопку(Caption = "Удалить диск"). Код:

' Переменные для хранения Dos соманд
Dim com1 As String
Dim com2 As String
Dim com3 As String

Private Sub Command1_Click() ' Создать диск
com1 = "md c:\disk" & Chr(13) + Chr(10)' Команда созания папки, Chr(13) + Chr(10) - перевод строки для след. команды
com2 = "Subst " & Text1.Text & ": " & "c:\Disk" & Chr(13) + Chr(10)' Создаем диск и именем которое было введенно в Текст. поле, ссылающийся на папку c:\Disk
com3 = "Exit"' Выходим из Доса

Open "disk.bat" For Output As #1' Создаем и открываем файл disk.bat(файлы с расширением Bat имееют текстовую структуру, для редактирования открываются блокнтом. При запуске выполняют Dos команды, которые в них вписанны)
Print #1, com1 & com2 & com3' Записываем все команды
Close #1

Shell "cmd /X /C start disk.bat", vbMinimizedNoFocus' Открываем файл disk.bat
End Sub

Private Sub Command2_Click()' Удалить диск
com1 = "del c:\disk /q" & Chr(13) + Chr(10)' Удаляем все файлы из папки
com2 = "subst " & Text1.Text & ":" & " /d" & Chr(13) + Chr(10)' Удаляем вписанный в текст. поле диск
com3 = "Exit"' Выходим из Доса

' Записываем все команды в файл, и выполняем их:
Open "disk.bat" For Output As #1
Print #1, com1 & com2 & com3
Close #1

Shell "cmd /X /C start disk.bat", vbMinimizedNoFocus

End Sub


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