Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 20926

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

May 30th, 2006

FileOpen Dialog without using Common Dialog Control

Expand Post »

Good Morning guys,

Can someone please tell me how to insert a fileopen dialog in VB? What I want is when the user clicks on a button, the program takes them to a particular directory or folder, that way they will be able to select files on their own from that folder.

For some reason, I do not have the CommonDialog control which should be under "Additional Controls." Is there a way I can install the commondialog control into my system? Please let me know.

If there is a thread that already exist in this forum regarding opening the dialog box, please send it to me. Thank you very much for your anticiapted cooperation.

Ini

Similar Threads

Common Dialog in Visual Basic 4 / 5 / 6
vb6/common dialog/access db in Visual Basic 4 / 5 / 6

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

in a module:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
' /* Code Taken From: http://forums.devx.com/showthread.php?t=148627 */
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Public 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
 
public 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
' /* Code Taken From: http://forums.devx.com/showthread.php?t=148627 */
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public 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

public 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

Then call it with a form like:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Form_Load()
SelectFileOpenDialog
End Sub
Private Sub Form_Load()
SelectFileOpenDialog
End Sub

It's easy enough to modify anything you need to change (such as the initdir) openfile UDT

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

Thank you for the info; when I tried it, it opened the dialog box of teh particular folder, but when I clicked on the file to open nothin happened.

Do you know how I can install a common dialog control into my system? Because if I had that, my program will be much easier. Also the code you gave me is to long, I appreciate it very much but do you have access to a shorter code?

Ini

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

not without using the commondialog control..... you can download the .ocx from just about anywhere..... once you have it downloaded, place it in the windows\system32 folder, and click start, run, regsvr32 c:\windows\system32\comdlg32.ocx, and hit enter..... then you should have it on the system. I personally suggest the API method over the ocx, though, since the api method is standalone, and doesn't require such dependancies.... but whatever boats your float.

http://www.ascentive.com/support/new...e=COMDLG32.OCX

Attached Files

commondialog.zip (1.8 KB, 395 views)

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

Thank you very much.

Ini

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

This is what I have; do you think you could figure a way I could specify which directory I want?

Thanks.

Ini

___________________________________________________

Dim UF As Variant
UF = Application.GetOpenFileName(FileFilter:="Excel workbooks(*.xls), *.xls", Title:="Excel Files")
If UF = False Then
Exit Sub
Else
If UF <> "" Then
Workbooks.Open Filename:=UF
End If
End If

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

You would be better off calling the premade function SelectFileOpenDialog, as is in the attachment, but your call getopenfilename should be passed a variable of the OPENFILENAME UDT. So, maybe you want to make one of those, and set all it's elements before calling the API.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

Please could you help me write code? Thanks.

Also I have another one that works using FileDialog, as the top code, it opens the dialog but will not open the file. please make the right corrections for me (code).

Dim FD As FileDialog
'Create a FileDialog object as a File Picker dialog box.
Set FD = Application.FileDialog(msoFileDialogFilePicker)

FD.Title = "Choose file to open"
FD.InitialFileName = "H:\"
FD.Show

Ini

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

I dunno, I've never used the FileDialog object. It's not a standard part of VB6, and I dunno where you got it. you should be able to call a property that gets set when the file is selected, maybe something like FD.Filename, but since I don't use it, I wouldn't know....

In the first example, it looks like you are trying to open the file in excel.... which would be something more like:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
dim objExcel
dim objworkbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(file_from_dialogbox_here)
objExcel.visible = true
 
set objExcel = nothing
set objWorkbook = nothing
dim objExcel
dim objworkbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(file_from_dialogbox_here)
objExcel.visible = true

set objExcel = nothing
set objWorkbook = nothing

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

May 30th, 2006

Re: FileOpen Dialog without using Common Dialog Control

I tried what you said about registering my comdlg32.ocs; it said successful, but when I tried drawing the dialog box on the form I get this error " This control could not be created because it is not properly registered." What can I do?

Ini

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: tabledef in ado

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: changing menu control

DaniWeb Message

Cancel Changes

User Name
Password