Reading text files without .txt extensions

[khu]

I'm working with output files from an in-house finite element program and the solution files are just text files with custom extensions (.bms, .loadcase, .spc, etc.). I'm trying to read these into dictionaries, but I'm having issues getting into the files.

If I navigate to the files outside of VBA, i get the "program not found, please select a program to open with" or whatever it says. If I do this once with NotePad, it's in the system memory and I can then access the one file through VBA, but this would be inefficient to do with almost hundreds of files.

I'd like this to run without opening NotePad, like running an FSO stream or Open...For method.

Currently I'm looping through an output folder containing all the files until I find a specific extension, then attempting to read like this

file = dir(dataform.file1) 'user selects a file in the root folder with getopenfilename

do while file <> ""
  if instr(file, ".bms") > 0 then
     open file for Random as #1   ''''''''Kicks me out here''''''''''
     'do things with awesome code
  end if 
  file = dir
loop

Any input is appreciated, thanks!

khu

[snb]

open "G:\OF\Filename.bms" for input as #1
       c00=Input(LOF(1),1)
close

[p45cal]

If there's more than one .bms file, I don't think it'll like using #1 again unless #1 is closed first.
Check out Freefile in excel vba help.

[Paul_Hossler]

If I do this once with NotePad, it's in the system memory

I'm not sure why you need to open it with Notepad first since VBA doesn't really care

Dim iFileNum as long

file = dir(dataform.file1) 'user selects a file in the root folder with getopenfilename
 
Do While[/COLOR] file <> "" 
     If instr(file, ".bms") > 0 Then
        iFileNum=FreeFile
         Open file ForRandom As #iFileNum 
          'do things with awesome code
        Close #Ifilename


    Else instr(file, ".load") > 0 Then
        iFileNum=FreeFile
         Open file For Random As #iFileNum 
          'do things with awesome code
        Close #Ifilename


         etc.


     End If
    file = dir 
Loop