VBAマクロ Path名取得について

質問

msoFileDialogFilePickerで選択したファイルのフォルダ名を取得したいのですが、エラーが出てしまいます。
初歩的な話かと思いますが、解決できず困っています。
よろしくお願い致します。
---------------------------------------
Dim Pfile as String
Dim fName as String, fPath as String

Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

If objDialog.Show Then
Pfile = objDialog.SelectedItems(1)
End If
　　 Set objDialog = Nothing

fName = Dir(Pfile)
fPath = Workbooks(fName).Path
↑ここで、「インデックスが有効範囲にありません」

回答No.2

kkkkkm · ベストアンサー

Workbooks(fName).Path
これは開いているブックのPathを取得します。

Pfileにはフルパスが入っていますので

fName = Dir(Pfile)
fPath = Replace(Pfile, fName, "")

で試してみてください。

お礼

ありがとうございます。
お陰様で解決しました。

回答No.1

f272

例えば
fPath = Left(Pfile, InStrRev(Pfile, "\") - 1)
としてください。

お礼

回答ありがとうございます。
お礼が大変遅くなり申し訳ありませんでした。