VBA Open a Specific File Type

ir121973 · Apr 1st 2015

Hi, I wonder whether someone could help me please.

I'm trying to use the code below to open a specific file type, in this case '.dat'.

Code

Sub btnFetchFiles()
    
    Dim file As String




    iRow = 7
    fPath = "\\c\s\CAF2\SA\Accessibility\Dragon - Application-Specific Script Conversion 2014\Converted Scripts\Done\"
    file = Dir(fPath & "*.dat")
    If file <> "" Then




        Set FSO = New Scripting.FileSystemObject
        If FSO.FolderExists(file) <> False Then
            Set SourceFolder = FSO.GetFolder(file)




                IsSubFolder = True




                Call ListFilesInFolder(SourceFolder, IsSubFolder)
                Call ResultSorting(xlAscending, "C7")
        Else
            MsgBox "Selected Path Does Not Exist !!" & vbNewLine & vbNewLine & "Select Correct One and Try Again !!", vbInformation, "File Manager - http://www.LearnExcelMacro.Com"
        End If
    End If
End Sub

Display More

The problem I have is that although the script runs, it's showing all the file types rather than the '.dat' files I want to show.

Could someone perhaps tell me where I've gone wrong.

Many thanks and kind regards

Chris

MrRedli · Apr 2nd 2015

Re: VBA Open a Specific File Type

try below line of code:

Code

fName = Application.GetOpenFilename("DAT Files (*.dat), *.Dat")

ir121973 · Apr 2nd 2015

Re: VBA Open a Specific File Type

Hi MrRedli, thank you for taking the time to read my post and for coming back to me with this.

Unfortunately though, although I'm not receiving any error message this still lists all the files rather than just the .dat files.

Many thanks and kind regards

Chris

VBA Open a Specific File Type

Participate now!

Share