• Home
 · 
• Windows API Call/Explanation
 · 
• Delete Files using API call

Delete Files using API call

Delete Files using API call

Rate Delete Files using API call

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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