Solved: Need the Root Directory of Thisworkbook

[frank_m]

Edit: I apologize for changing the request
I actually need this to also work if the Root Directory is a UNC Path
ie: \\MySharedDrive

I need help getting the Root Directory of Thisworkbook
[vba]MyDir = Root Directory of ThisWorkbook & "\Blue Prints\"
'ie: D:\Blue Prints\ or \\MySharedDrive\Blue Prints\
[/vba] Thanks

[Kenneth Hobs]

[vba]ThisWorkbook.Path[/vba]

[VBA]Sub t()
MsgBox GetRootDrive(ThisWorkbook.path)
End Sub

Function GetRootDrive(Optional aPath As String) As String
' include reference to MS Scripting
Dim FSO As FileSystemObject, s As String
Set FSO = New FileSystemObject
'GetRootFolder = FSO.GetSpecialFolder(WindowsFolder)
s = FSO.GetDriveName(aPath)
Set FSO = Nothing
GetRootDrive = s
End Function
[/VBA]

[frank_m]

Thanks Kenneth, that's what I needed to know
Appreciate your help

Just adapted to late binding to simplify distribution to the users.
[vba]
Sub t()
MsgBox GetRootDrive(ThisWorkbook.path)
End Sub

Function GetRootDrive(Optional aPath As String) As String
Dim FSO As Object, s As String
Set FSO = CreateObject("Scripting.FileSystemObject")
s = FSO.GetDriveName(aPath)
Set FSO = Nothing
GetRootDrive = s
End Function[/vba]

[Bob Phillips]

You can do that in one line Frank

[vba]

Function GetRootDrive(Optional aPath As String) As String
GetRootDrive = CreateObject("Scripting.FileSystemObject").GetDriveName(aPath)
End Function
[/vba]