18
Декабрь
2008
Как удалить все файлы в выбранной папке?
Как удалить все файлы в выбранной папке?
Option Explicit Private Sub Command1_Click() Kill Dir1.Path & "\*.*" Command1.Caption = "Папка очищена" End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path ChDir Dir1.Path End Sub Private Sub Drive1_Change() Dim Message As String On Error GoTo Error Dir1.Path = Drive1.Drive ChDrive Drive1.Drive Exit Sub Error: Message = "Диск " + UCase(Drive1.Drive) _ + Chr(13) + Chr(10) Message = Message + "отсутствует." Message = MsgBox(Message, vbOKOnly _ + vbExclamation, "Ошибка") Drive1.Drive = Dir1.Path End Sub