open *.DGN of *.PDF in designated/random folder

[mortinrido]

Dear All,



Currently i'm using VB6. I have several files of *.dgn or *.pdf within my folder.
For example :
I have chosen random folder (using dialog box) which contains some above files
and some other files. Then, I want my VB6 recognizes the extention DGN or PDF to open. Later on, VB6 will visibly open those files one-by-one.

Please help me... Because, I searched from this VB6 forum only open a
selected file. I'd like to know the code that the folder i've chosen then VB6 is
able to open files that has extention like above.

*note : filename of above extention is random/unknown

Thank you for your great help...

[Killer42]

I'm a bit unclear on which part you want help with. I don't know what to do with DGN or PDF files from VB6. But as for finding just these files, there are a couple of ways. If you use the FileSystemObject (FSO) model, then you can check the file type - not recommended in my opinion, because it varies depending on which application "owns" the files. For example, a JPG file might have a type of "JPEG image" or "Paint Shop Pro Image" or various other things, depending on what's installed.

You can also check the name, and use the Mid() or Right() function to make sure the last 4 characters match ".DGN" or ".PDF".

You can scan through the files in the directory by using the Dir() function. for eample, this will list all the PDF files in the current folder...

Dim F As String
F = Dir("*.PDF") ' Retrieve the first name matching this pattern.
Do While F <> ""
  Debug.Print F
  F = Dir ' Retrieve the next matching name.
Loop