Kill files underneath a folder?

[Beacon]

How do you delete all files underneath a folder but not the folder?

[Dreamlax]

Get the folders name, delete the folder, and then create a new folder with a same name.

[Beacon]

o.k i've got:

srce = "c:\test"
Kill (srce)
End Sub

But that don't work coz it's a folder!
How should it be?

[JamesM]

Try this:

Private Sub Command1_Click()
DeleteFiles ("c:\tmp\tmp")
End Sub


Function DeleteFiles(Path As String)
    Dim File As String
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    If Len(Dir$(Path, vbDirectory)) <> 0 Then
        File = Dir$(Path, vbNormal + vbHidden + vbSystem)
        Do While Len(File)
            MsgBox File
            Kill (Path & File)
            File = Dir
        Loop
    End If
End Function

[JamesM]

If you want to delete the folder without fso including subdirectories and optionally send to the recycle bin:

In bas:

Option Explicit

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 FOF_NOCONFIRMATION = &H10
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function jKill(Path As String, Optional Recycle As Boolean = False) As Boolean
'By James Mayo
'Delete file Or Folder And optionally send To recycle bin
If Len(Dir$(Path)) <> 0 Or Len(Dir$(Path, vbDirectory)) <> 0 Then
    Dim SHFileOp As SHFILEOPSTRUCT
    With SHFileOp
        'Delete the file
        .wFunc = FO_DELETE
        'Select the file
        .pFrom = Path
        .fFlags = FOF_NOCONFIRMATION
        'Allow 'move To recycle bn'
        If Recycle Then .fFlags = .fFlags Or FOF_ALLOWUNDO
    End With
    'perform file operation
    SHFileOperation SHFileOp
    jKill = True
End If
End Function

For example, killing directory and sending to recycle bin:

Private Sub Command1_Click()
jKill "c:\tmp\tmp", True
End Sub

[Dreamlax]

You don't necessarily have to use Kill to delete the folder. You could use:

Declare Function RemoveDirectory Lib "kernel32.dll" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long 

Private Sub Command1_Click()
Dim strDirName As String
strDirName = "C:\WINDOWS"
RemoveDirectory strDirName
MkDir strDirName
End Sub

Very quick and easy. Just remember to change the directory name....

I think mine is a lot easier James!!!

[Beacon]

Dreamlx:

I have a problem a get an error "Path/File access error"
why is this?

I'll try jamesm's !
thanks

[Beacon]

Dreamlax I have this so far:
Private Sub Command2_Click()
srce = "c:\test"

Dim strDirName As String
strDirName = srce
RemoveDirectory strDirName
MkDir strDirName
end sub

[Dreamlax]

Remeber to put the API call in your form or module!

'Place the following line in the General Declarations, or if you put it in a module, make it public.
Private Declare Function RemoveDirectory Lib "kernel32.dll" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

Private Sub Command2_Click() 
Dim srce As String
srce = "c:\test" 
 
RemoveDirectory srce
MkDir srce
End Sub

[Beacon]

Cool thanks jamesm and dreamlax!
Works a charm

[Dreamlax]

Whose one? Mine or his?

[Beacon]

both!

[Dreamlax]

Phew, I was about to throw an aggro because it works on my computer and I deleted the folder with all the games in it by mistake. There was only 3 really old 486 gamesa so I'm not mad.

[JamesM]

Dreamlax,

RemoveDirectory API only works where the folder contains no subdirectories and no files, else it will fail. Why not just use rmdir instead? Additionally it has no ability to send to recycle bin.

[Beacon]

Yep just found that out!

[Dreamlax]

strange, it deleted the games folder. Unless that was your code.