Delete All Files in a Folder. Needs a reference to Microsoft Scripting Runtime
Public Function DeleteAllFiles(ByVal FolderLoc As String) As Boolean
' Deletes all files in folder specified, by parameter FolderLoc. Does not delete subfolders or files within subfolders
' Returns True if sucessful, false otherwise
' Requires a reference to Microsoft Scripting Runtime
' EXAMPLE: DeleteAllFiles "C:\TestFolder"
Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
If oFs.FolderExists(FolderLoc) Then
Set oFolder = oFs.GetFolder(FolderLoc)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true deletes read-only file
Next
DeleteAllFiles = oFolder.Files.Count = 0
On Error Goto 0
End If
End Function
' Deletes all files in folder specified, by parameter FolderLoc. Does not delete subfolders or files within subfolders
' Returns True if sucessful, false otherwise
' Requires a reference to Microsoft Scripting Runtime
' EXAMPLE: DeleteAllFiles "C:\TestFolder"
Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
If oFs.FolderExists(FolderLoc) Then
Set oFolder = oFs.GetFolder(FolderLoc)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true deletes read-only file
Next
DeleteAllFiles = oFolder.Files.Count = 0
On Error Goto 0
End If
End Function
FolderLoc
Views 4,517
Downloads 1,345
CodeID
DB ID
