↓の例のとおり、ThisWorkbook.Path を使用すれば取得できます。
===
Sub test()
Dim sCurDir As String
Dim sFileName As String
' エクセルファイルの保存してあるフォルダのPATHを変数sCurDirにセット
sCurDir = ThisWorkbook.Path
' sCurDir内にあるファイルのPATHを取得
sFileName = Dir(sCurDir & "\*.*", vbNormal)
Do While sFileName <> ""
'sFileNameをmsgboxで表示
MsgBox sFileName
' sCurDir内にある次のファイルのPATHを取得
sFileName = Dir
Loop
End Sub
===
URLはダミーです。
ありがとうございます。