open file common dialog box

[Y2D]

seeing as how I got such great help last time I needed help, I'm going to ask again

I'm trying to get my application to open a standard Open File dialog box, I found a little program on this site that had what i wanted, and there was no way I could get it to work... I"m using VB6.. what's the simplest steps in getting the dialog to work..

again, thanks in advance

[Phil Weber]

http://www.developerfusion.co.uk/show/11/1/

[Keithuk]

I'm afraid that link is no use to anyone Phil.

Here's a little app I made to show all 6 functions of the CommonDialog ocx. It uses a RichTextBox so you can save rtf files with colour.

[Phil Weber]

It's a six-page article; did you read all the pages? I think it's quite good, actually.

[Keithuk]

Sorry Phil, I didn't read all pages.

[pullu_aset]

Hi ..... try the following code ... it worked for me ..

You need "comdlg32.dll" to call the open file dialog box ... Its info is given on MSDN site .. I don't remember the link .. but its something like this ...

I hope it helps........

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function SelectFileOpenDialog()
Dim strTemp, strTemp1, pathStr As String
Dim i, n, j As Long
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
Dim Fname As String

OpenFile.lStructSize = Len(OpenFile)
sFilter = "Text Files (*.txt)" & Chr(0) & "*.TXT" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "Select File"
OpenFile.flags = 0

lReturn = GetOpenFileName(OpenFile)

If lReturn = 0 Then
MsgBox "You didn't select any file"
Else
'MsgBox "The user Chose " & Trim(OpenFile.lpstrFile)

Fname = Trim$(OpenFile.lpstrFileTitle) ' copy the filename to "Fname"

n = FileLen(OpenFile.lpstrFile) 'length of the file

End Function