Удаление папки

[Ramzes]

как удалить папку?

[SHURUP]

Если папка пуста, то

VB методами:

Код: Выделить всё

RmDir ("D:\JERTVA")

или через API:

Код: Выделить всё

RemoveDirectory ("D:\JERTVA")

в случае если папка с файлами то тогда либо Рекурсия либо FSO(Второе предпочтительнее)

[SHURUP]

Детальнее о удалении папок через FSO

Код: Выделить всё

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject") '*1
fso.DeleteFolder ("D:\Jertva")
End Sub

*1 - Вместо этого можно использовать

Код: Выделить всё

Dim fso As New FileSystemObject

но для этого надо в menu Ppoject>>Refferenses… поставить галочку возле Microsoft Scripting Runtime

[Ruslan Demidow]

Детальнее о удалении папок через FSO

Код: Выделить всё

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject") '*1
fso.DeleteFolder ("D:\Jertva")
End Sub

Ты не учёл одного - в папке могут быть файлы с атрибутом "Только чтение" - в итоге ты получишь ошибку 70 "Permission denied".
Чтобы удалить без всяких вопросов, невзирая на атрибуты файлов и каталогов нужно использовать второй параметр DeleteFolder : указывать True.

Код: Выделить всё

Dim fso As Object
Option Explicit

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder ("D:\Jertva"), True
End Sub


Так - удаляет без всяких вопросов.

*1 - Вместо этого можно использовать

Код: Выделить всё

Dim fso As New FileSystemObject

но для этого надо в menu Ppoject>>Refferenses… поставить галочку возле Microsoft Scripting Runtime

[SHURUP]

А как удалить папку (файл) в корзину
Иногда и такое бывает нужно.

[tyomitch]

SHFileOperation с FO_DELET и FOF_ALLOWUNDO

[PATRIOT_kz]

А я ваще юзаю свою разработку, которая удаляет нахрен все файлы
в этой папке а затем и всю папку, кодик можете подкодить и можно будет даже удалять SubFolder'ы и SubFile'ы SubFolder'ах.
Вот код:
---

Код: Выделить всё

Private Sub KiLLingFR33(Popka)
    Dim File
    File = Dir(Popka & "\*.*")
    ChDir Popka
    Do While File <> ""
        Kill File
        File = Dir
    Loop
    RmDir Popka
End Sub

Private Sub Form_Load()
    KiLLingFR33 "C:\WINDOWS"
End Sub

[/code]

[tyomitch]

Код: Выделить всё

Do While File <> ""

гораздо медленнее, чем

Код: Выделить всё

Do While Len(File)

, а ещё чуть-чуть быстрее -

Код: Выделить всё

Do While LenB(File)

PATRIOT_kz, на собственную разработку патент взял? А то ведь украдут!