checking file extention before opening

[hilyete]

My project includes a button that opens an API file search window that allows the user to select and open a file for data import. I want to include code that will check to see if the file is a csv file, (as others will not work for this project). What code do I need to add that would check the extention to make sure it is a csv file and end the sub routine if it isn't?

Thanks

Tom

 

[Case_Germany]

Hi,

maybe you can do something with this code? Only CSV files can be selected:

Option Explicit
Sub Main()
    Dim varFile As Variant
    On Error GoTo Fin
    varFile = Application.GetOpenFilename("CSV files,*.csv", 1, "Select", , False)
    If Not varFile <> False Then Exit Sub
    ' your code here...
Fin:
    Application.ScreenUpdating = True
End Sub

 

[hilyete]

Thanks for responding,

I can't seem to get that to work for me. Here's the function as it is in the code that opens the API file selection window: (This works, I just need to limit the files that can be chosen to cvs files).

Function GetFileName(strPath As String)
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)")
GetFileName = ahtCommonFileOpenSave(InitialDir:=strPath, _
    Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
    DialogTitle:="Please select file to import")
     
End Function

And here is the code in my routine that puts the data from the opened file into a PowerPoint presentation.

sFileName = GetFileName("c:\")
 
iFileNum = FreeFile()
Open sFileName For Input As iFileNum
' Use the current presentation
With ActivePresentation
Do While Not EOF(iFileNum)
Line Input #iFileNum, cSpanish
Line Input #iFileNum, cEnglish
.Slides(1).Duplicate
Set oSl = .Slides(Count + 1)

I'm not sure where I'd put your code in. I tried it in both of the above but I get a "method or data member not found" message with the "GetOpenFileName" highlighted. Any ideas?

Tom

 

[shg]

I don't use that API, but you're setting the filter for Excel files ...

strFilter = ahtAddFilterItem(strFilter, [COLOR=red]"Excel Files (*.xls)"[/COLOR])

 

[hilyete]

Thanks shg,

Yeah, it's a head scratcher (for me anyway)... The filter does come up on the file selection window, but it doesn't do anything. It doesn't filter out other files, and it doesn't warn against opening one that isn't. I changed it to cvs to test it out... nothing.

 

[shg]

Dunno; again, I don't use the API.

I'd use Case Germany's suggestion.