Delete files in a folder VBA

[PATSYS]

Hi all,

I would like to include a line in my code to delete all .pdf files found in C:\Documents

How is this done?

Thanks

 

[Domski]

Try this:

Sub del_pdf2()
Kill "C:\Documents\*.pdf"
End Sub

Hope it helps.

Dom

 

[davc4]

Sub testit()
    Dim myvar As Variant
    Dim myFolder As String
    Dim i As Long
    
    myFolder = "c:\test"
    myvar = FileList(myFolder, "*.pdf")
    For i = LBound(myvar) To UBound(myvar)
        Kill myFolder & myvar(i)
    Next
End Sub

Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
    Dim sTemp As String, sHldr As String
    If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
    sTemp = Dir(fldr & fltr)
    If sTemp = "" Then
        FileList = Split("No files found", "|")  'ensures an  array is returned
        Exit Function
    End If
    Do
        sHldr = Dir
        If sHldr = "" Then Exit Do
        sTemp = sTemp & "|" & sHldr
     Loop
    FileList = Split(sTemp, "|")
End Function

Office 2007 compliant , just change the test it code to your needs.

 

[PATSYS]

Try this:

Sub del_pdf2()
Kill "C:\Documents\*.pdf"
End Sub

Hope it helps.

Dom

Hi,

I got a runtime error 53 "File not found" although I am sure the files are there.

Any idea why the code does not seem to locate the pdf files?

 

[tusharm]

Is this really c:\documents? Or the documents folder for the user? If so, its actual location depends on the OS. It could be c:\documents and settings\{user}\my documents -- XP -- or c:\users\{user}\documents -- Vista.

Of course, if you have a Mac, * is not a wildcard character in the Kill statement. See the Excel VBA help for more.

Hi,

I got a runtime error 53 "File not found" although I am sure the files are there.

Any idea why the code does not seem to locate the pdf files?

 

[Domski]

I just tested it and it works fine in Excel 2003 for me, am guessing it would be okay in 2007 but not certain. Is that definitely the path that you have for the documents?

Dom

 

[PATSYS]

Hi Tushar and Dom,

Sorry, there are actually no files, the folder is just not refreshing immediately, as it is really a folder in the network drive, I just used C:\Documents to simplify.

Thanks.