Code: Sub DeleteFiles() 'macro to delete all files in a folder Dim FileSys As FileSystemObject Dim objFile As File Dim myFolder 'set path for files - change for your folder Const myDir As String = 'C: delete these files' 'set up filesys objects Set FileSys = New FileSystemObject Set myFolder = FileSys.GetFolder(myDir) 'loop through each file and check for name match For Each objFile In myFolder.Files If Left(objFile.Name, 1) '~' And objFile.Name ThisWorkbook.Name Then objFile.Delete End If Next objFile Set FileSys = Nothing Set myFolder = Nothing End Sub. Hi mates, Thank you, this will be very useful. Luxor Amun Rising Hd Seriali.

I just added one sentence (objSubFolder.Delete) in order to delete the sub-folders too. Adobe Lightroom Cracked Apk Market.

VBScript to Delete Folder and all SubFolders with files Here is the VBScript which will delete all Folders and. Delete folder, files, subfolder.