Reading directory names

[Kim Skatun]

I am trying to get the foldername into a textbox of my gui by using the
FileDialog box. I have some problem to get it to work:


Public Sub ReadDirectoryNames()
Dim FileName As Variant
Dim Filt As String, Title As String
Dim Response As Integer

' Set Drive letter
ChDrive "C:\"
' Set to Specified Path\Folder
ChDir "C:\plot\"

FilterIndex = 5
' Set Dialogue Box Caption
Title = "Kims file selector"
' Get FileName
FileName = Application.FileDialog(Title:=Title)
' Exit if Dialogue box cancelled
If FileName = False Then
Response = MsgBox("No File was selected", vbOKOnly & vbCritical,
"Selection Error")
Exit Sub
End If
' Display Full Path & File Name
Response = MsgBox("You selected " & FileName, vbInformation, "Proceed")

GUI.TextBoxDirectoryName.Text = FileName


Call ReadText(FileName)
GUI.TabbedPane.Pages(2).Visible = True



End Sub

 

[Gary''s Student]

Try giving FileDialog a type rather than a Title.

 

[Kim Skatun]

How do u suugest to use a type? I want to have the title as well, is this not
possible? Also I was interested in starting the directory selector at a
spesific location. c:\plot\

 

[Gary''s Student]

I asked a similar question and got several good suggestions:

http://groups.google.com/group/micr...8dc896?hl=en&lnk=st&q=folder#d2fe40f6f68dc896

 

[Kim Skatun]

Its a pretty big code trunk just to be able to set preselected folder
location....