Sub GetParent()
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
MsgBox oFSO.GetFile(ActiveWorkbook.FullName).ParentFolder .ParentFolder.Path
End Sub


--
HTH

Bob Phillips

"tom taol" wrote in message
...
i wonder that get the parent folder of folder of current excel file
using macro.

ex) working directory : c:\aa\bb
answer : c:\aa



*** Sent via Developersdex http://www.developersdex.com ***