Delete subfolder and files

[ysherriff]

Hi

I found a macro where I can delete all files located in subfolders but for some reason this macro is not working. Attached is the image of the subfolders

Sub Clear_All_Files_And_SubFolders_In_Folder()
'Delete all files and subfolders
'Be sure that no file is open in the folder
  Dim FSO As Object
  Dim MyPath As String

  Set FSO = CreateObject("scripting.filesystemobject")

  MyPath = "S:\SPandA\Sales Operations\Workstreams\Logs\DirectConnect Summary Report\DC Team Member Logs"  '<< Change

  If Right(MyPath, 1) = "\" Then
  MyPath = Left(MyPath, Len(MyPath) - 1)
  End If

  If FSO.FolderExists(MyPath) = False Then
  MsgBox MyPath & " doesn't exist"
  Exit Sub
  End If

  On Error Resume Next
  'Delete files
  FSO.deletefile MyPath & "\*.*", True

What am I doing wrong? Thanks for your help.

End Sub

 

[Chihiro]

The code looks like it's only checking single folder and removing all files in that folder. There is no routine to check subfolders from what I can see. And it looks like partial code from Ron de Bruin's site. You are missing last part of the code.

See link (it's the bottom example given)
http://www.rondebruin.nl/win/s4/win004.htm

Now, what exactly do you need? Entire subfolders and it's contents deleted as well? Or just the files and not the folders? If it's just files from folder and subfolders... Ron's code isn't meant for that. His code will delete all contents and subfolders within the path specified.

 

[YasserKhalil]

Try this

Sub Clear_All_Files_And_SubFolders_In_Folder()
    Dim FSO As Object
    Dim MyPath As String
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
   
    MyPath = "S:\SPandA\Sales Operations\Workstreams\Logs\DirectConnect Summary Report\DC Team Member Logs\"
   
    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If
   
    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & " Doesn't Exist", 64
        Exit Sub
    End If
   
    On Error Resume Next
        FSO.DeleteFile MyPath & "\*.*", True
        FSO.DeleteFolder MyPath & "\*.*", True
    On Error GoTo 0
End Sub

 

[ysherriff]

Hi. I just need the contents of the subfolders deleted. let me try the code Yasser provided and see if it works. stay tuned!!

and thanks

 

[ysherriff]

Thanks Yasser. It worked and I modified it to not delete the subfolder.

Thank you both

 

[YasserKhalil]

You're welcome. Glad I can offer some help
Don't forget to click 'Like'

 

[ysherriff]

Curious, where did I go wrong and I will definitely like it

 

[ysherriff]

This is a dumb question. how do I "like"?

 

[YasserKhalil]

Never mind

 

[shrivallabha]

You can also employ DOS through VBA to do this.

Sub DelFilesCMD()
Dim strPath As String: strPath = "S:\SPandA\Sales Operations\Workstreams\Logs\DirectConnect Summary Report\DC Team Member Logs"
Shell "cmd /c del /f /s /q " & Chr(34) & strPath & "\*.*" & Chr(34), vbNormalFocus
End Sub

 

[ysherriff]

Thanks shrivallabha. I am going to try this code because the other code did not delete the files in the subfolders. It deleted the entire subfolders. I only need the files deleted in the subfolders. I will let you know if this works.