by pwpoo (1 Submission)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 28th November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Delete Files using API call
Dim SourceFolder As String 'Source folder
Dim SourceFiles As String 'Source files
Dim FilesName As String 'Source file name
FilesName = Dir("C:\My Documents\*.txt")
SourceFolder = "C:\My Documents\"
Do While FilesName <> ""
SourceFiles = SourceFolder & FilesName
DeleteFile SourceFiles
FilesName = Dir
Loop
End Sub