How to get Properties Generate tab Location value

[moonhkt]

Hi Reader
How to get Properties Generate tab "Location" value ?
What location is file saved directory.

Below coding just return file name only.
Sub FileName()
Dim xname As String
xname = Application.ActiveWorkbook.Name

xname = Application.InputBox("File Information", "Detail", xname)

End Sub


moonhk

 

[Bob Phillips]

xPath = Application.ActiveWorkbook.Path


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[moonhk]

xPath = Application.ActiveWorkbook.Path

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)










- $Bp}<(Ho0zMQJ8;z(B -

Thank. My coding as below
Sub DisplayPathFileName()
'~~ 2007/12/07
Dim xname As String
Dim xPath As String
If Application.ActiveWorkbook Is Nothing Then
MsgBox "No Open Worksheet", vbCritical
Exit Sub
End If
xname = Application.ActiveWorkbook.Name
xPath = Application.ActiveWorkbook.Path
xname = Application.InputBox("File Information", "Detail", xPath &
"\" & xname)

End Sub