Visual Basic FAQ

Как удалить все файлы в выбранной папке?

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

Запись опубликована on 18.12.2008 at 9:02 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.