Getting all files in a folder except...

[nbrege]

What is the easiest way to get all files in a folder except for a certain extension? ie. I want to get all files that are not ".pdf"

[JoeBu]

Here's a rough code sample. There are obvious ways to improve the code a great deal, but it at least gives you some direction and a place to start.

    Private Function TestFiles() As List(Of String)
        Dim d As New System.IO.DirectoryInfo("C:\")
        Dim f() As System.IO.FileInfo = d.GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
        Dim tmp As System.IO.FileInfo
        Dim FileList As New List(Of String)
        For Each tmp In f
            If tmp.Extension <> ".pdf" Then FileList.Add(tmp.FullName)
        Next
        Return FileList
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String = "", tmp As List(Of String) = TestFiles()
        Dim f As String = ""
        For Each f In tmp
            s = s & f & vbCrLf
        Next
        MsgBox(s)
    End Sub

[nbrege]

Thanks. Thats pretty much how I thought I would have to do it...

[JoeBu]

Thanks. Thats pretty much how I thought I would have to do it...

There may be a way to filter out file types in the GetFiles method of the DirectoryInfo class; you could probably explore that little further. The method I showed is the one I normally use (or something like it).

[dbasnett]

Directory.GetFiles(aPath, "*.pdf")

[nbrege]

I'm looking to EXCLUDE .pdf files, not include them...

[dbasnett]

my bad.

[Siddharth Rout]

One more way...

Dim PDFFilPth As String
PDFFilPth = "C:\Temp\"
 
'When it finds a PDF file, it adds it to a Combox (cmbPDF):
' Find PDF in Multiple Folders and Lists them
Dim rootDi As New DirectoryInfo(PDFFilPth)
Dim di As DirectoryInfo
For Each di In rootDi.GetDirectories
    Dim PDFdirs() As String = Directory.GetFiles(PDFFilPth & di.Name)
    For Each PDFfilname In PDFdirs
        PDFtestname = System.IO.Path.GetFileName(PDFfilname)
        'Check for PDF files and add to Combox 'cmbPDF'
        Dim FilTest As String = PDFtestname.Remove(0, (Len(PDFtestname) - 3))
        If UCase(FilTest) = "PDF" Then
            cmbPDF.Items.Add (PDFtestname)
        End If
    Next
Next