Logo 
Search:

MS Office Answers

 Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Abelerd Fischer   on Mar 02 In MS Office Category.

Getting directory of current workbook (curdir does not do this)


  
Question Answered By: Geneva Morris   on Mar 02

Try this

Private Sub ABC( )
Dim posn As Integer, i As Integer
Dim flName As String
Dim fPath As String ' path  of file

flName = ThisWorkbook. FullName

posn = 0

For i = 1 To Len(flName)
If (Mid(flName, i, 1) = "\") Then posn = i
Next i

fPath = Left(flName, posn - 1)
msgbox fpath

End Sub

Share: 

 

This Question has 2 more answer(s). View Complete Question Thread

 


Tagged: