Удалить содержимое папки НО НЕ САМУ ПАПКУ!!!

[Alex-pc1]

вопрос таков:
Существует папка, ну допустим C:\DIR1, она является сетевым ресурсом и к некоторым компам подключена как сетевой диск....
в ней есть файлы и папки, количество и название не известно, и не имеет значения.

Необходимо
либо:
удалить все содержимое, но не саму папку
либо:
удалить папку со всем содержимым, но потом создать ее заново, сделать сетевой и восстановить права доступа(помоему проще удалить содержимое)

Допустим, что в момент удаления к файлам никто не обращается, и проверять занят ли файл или ... нет необходимости.

[Debugger]

Перечилить при помощи Dir все файлы.. И Kill их!

[GSerg]

Получить ACL папки. И просто запомнить.
Удалить папку.
Создать папку с одновременным навешиванием того самого запомненного ACL.
NetShareAdd.

[Kovu]

ShFileOperation как раз удалит содержимое папки без неё самой.

[Alex-pc1]

Kovu Огромное спасибо!!! все работает!!!
вот что получилось:

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

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION = &H10             '  Don't prompt the user.

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Sub Command1_Click()
    Dim SHFileOp As SHFILEOPSTRUCT
    With SHFileOp
        'Delete the file
        .wFunc = FO_DELETE
        'Select the file
        .pFrom = "c:\DIR1\*.*"
        'Allow 'move to recycle bn'
        .fFlags = FOF_NOCONFIRMATION
    End With
    'perform file operation
    SHFileOperation SHFileOp
    MsgBox "Все удалено!!!"
End Sub


[Andrey Fedorov]

вот что получилось:

А можно еще чуть сократить:

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

    Dim fso As New Scripting.FileSystemObject
    Dim s As String
   
    s = "C:\Temp\Test\*"
    fso.DeleteFolder s
    fso.DeleteFile s