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

Try giving FileDialog a type rather than a Title.
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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

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" wrote:

Try giving FileDialog a type rather than a Title.
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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

I asked a similar question and got several good suggestions:

http://groups.google.com/group/micro...40f6f68 dc896
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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" wrote:

Try giving FileDialog a type rather than a Title.
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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

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


"Gary''s Student" wrote:

I asked a similar question and got several good suggestions:

http://groups.google.com/group/micro...40f6f68 dc896
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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" wrote:

Try giving FileDialog a type rather than a Title.
--
Gary''s Student - gsnu200810


"Kim Skatun" wrote:

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