This tutorial explains how to use Access / Excel VBA to delete folder if folder exists already.
Access Excel VBA delete folder if folder exists
Suppose you want to write a Macro to export files to a folder. There could be problem if the folder already contains the files you want to export. To avoid this, you probably want to delete the folder and create a new folder before exporting the files. Alternatively, you can also delete all files in the folder.
In order to delete a folder, you can use the FSO Folder Methods.
folderpath = "C:\test" Set FSO = CreateObject("Scripting.FileSystemObject") FSO.deleteFolder (folderpath)
To check if folder already exists, use FSO.FolderExists Method
FSO.FolderExists(folderpath) = True
To delete folder if folder exists already, we can combine the above
folderpath = "C:\test" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(folderpath) = True Then FSO.deleteFolder (folderpath) End If
Finally to recreate the deleted folder, add createFolder Method at the end of the Procedure
Public Sub delFolder() folderpath = "C:\test" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(folderpath) = True Then FSO.deleteFolder (folderpath) End If FSO.createFolder (folderpath) End Sub