File Path Problem

  • Thread starter Thread starter Todd Huttenstine
  • Start date Start date
T

Todd Huttenstine

Below is a code that attaches "\My Stats.xls" to the end
of values in textbox6. It works fine, accept when a user
selects only a drive and then clicks OK. For example, if
I were to select the C drive it puts 2 // in front and
this makes the path invalid(C:\\My Stats.xls), however it
works fine if I select a drive and then a folder.

TextBox6.Value = GetDirectory & "\My Stats.xls"

How should I fix this?
Thank you


Todd Huttenstine
 
Hi Todd,

Something like this should work for you:

Sub demo()
Dim sDir As String

sDir = GetDirectory
If Right$(sDir, 1) = Application.PathSeparator Then _
sDir = Left$(sDir, Len(sDir) - 1)

TextBox6.Text = sDir & "\My Stats.xls"
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
thanks, that worked great.

Todd Huttenstine
-----Original Message-----
Hi Todd,

Something like this should work for you:

Sub demo()
Dim sDir As String

sDir = GetDirectory
If Right$(sDir, 1) = Application.PathSeparator Then _
sDir = Left$(sDir, Len(sDir) - 1)

TextBox6.Text = sDir & "\My Stats.xls"
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Todd said:
Below is a code that attaches "\My Stats.xls" to the end
of values in textbox6. It works fine, accept when a user
selects only a drive and then clicks OK. For example, if
I were to select the C drive it puts 2 // in front and
this makes the path invalid(C:\\My Stats.xls), however it
works fine if I select a drive and then a folder.

TextBox6.Value = GetDirectory & "\My Stats.xls"

How should I fix this?
Thank you


Todd Huttenstine
Click to expand...
.
Click to expand...
 
thanks, that worked great.

Todd Huttenstine
-----Original Message-----
Hi Todd,

Something like this should work for you:

Sub demo()
Dim sDir As String

sDir = GetDirectory
If Right$(sDir, 1) = Application.PathSeparator Then _
sDir = Left$(sDir, Len(sDir) - 1)

TextBox6.Text = sDir & "\My Stats.xls"
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Todd said:
Below is a code that attaches "\My Stats.xls" to the end
of values in textbox6. It works fine, accept when a user
selects only a drive and then clicks OK. For example, if
I were to select the C drive it puts 2 // in front and
this makes the path invalid(C:\\My Stats.xls), however it
works fine if I select a drive and then a folder.

TextBox6.Value = GetDirectory & "\My Stats.xls"

How should I fix this?
Thank you


Todd Huttenstine
Click to expand...
.
Click to expand...
 
Back
Top