Member Avatar for coco86

hi.. I have a problem on opening 2 file ... as below is my code... I want to open 1 file let's say .Dat file and it will trigger the other .Hdr file. the only different is the extension name , 11U06P0434FN.dat and 11U06P0434FN.hdr .... anyone can help me .... please .

CommonDialog1.Filter = ".Dat"
CommonDialog1.InitDir = App.Path & "\BatchFile"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen

txtdata(0).Text = rtndirectory(Trim(CommonDialog1.FileTitle))
If Trim(CommonDialog1.FileName) = "" Then Exit Sub
DatFName = CommonDialog1.FileName

CommonDialog1.ShowOpen
txtdata(1).Text = rtndirectory(Trim(CommonDialog1.FileTitle))
HdrFName = CommonDialog1.FileName

End Sub

  • 3 Contributors
  • 7 Replies
  • 90 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by coco86
Member Avatar for binoj_daniel

So if you mean that you don't get the option to open multiple type files, then you need to change your code slightly.

CommonDialog1.Filter = "Dat File (*.Dat)|Hdr File (*.Hdr)"

This will give you option to open both type of files

Member Avatar for coco86

thnx binoj_daniel..

Member Avatar for binoj_daniel

Let me know if that worked?

Member Avatar for binoj_daniel

you can also register on my site for more tech articles. click here to visit my site

Member Avatar for QVeen72

Hi,

use ur code to open Dat file and then get the header file by just replacing last 3 chars:

DatFName = CommonDialog1.FileName
HdrFName = Replace(LCase(DatFName),".dat",".hdr")

Or

DatFName = CommonDialog1.FileName
HdrFName = Left(DatFName,Len(DatFName)-3) & "hdr"

Regards
Veena

Member Avatar for coco86

thnx veena , it works .... i use the 2nd one u gave me.... thnx alot.....

Member Avatar for coco86

thnx veena .... it works .... i use the 2nd one u gave me..... appreciate it....

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.