お世話になっています,dtです。

取得したファイルのパス中でファイル名だけを取り出したいのですが、
簡単な仕方があるのでしょうか。

よろしくお願いします。

> お世話になっています,dtです。
>
> 取得したファイルのパス中でファイル名だけを取り出したいのですが、
> 簡単な仕方があるのでしょうか。
>
> よろしくお願いします。

InStrRevで"\"の位置を取得してみては？

こんにちは。

> 取得したファイルのパス中でファイル名だけを取り出したいのですが、
> 簡単な仕方があるのでしょうか。
こんな感じでどうでしょう

Filename = Split(FilePath, "\")(UBound(Split(FilePath, "\")))

FileSystemObjectオブジェクトのGetFileNameメソッドを使うと簡単に取得できます。
hhttp://www.bcap.co.jp/hanafusa/VBHLP/FSO01.htm

文字列操作でもやろうと思えばできますけど。
1. 後から \ の位置を探す。(InStrRev)
2. Mid関数(またはRight関数)で切り出す。

matsuさん、YKさん、Blueさん
ご回答ありがとう。

YKさんのコードを使いました（一番簡単だ）。

本当にありがとうございました。

ちなみに存在するファイルパスであれば、Dir関数で取れます。
Filename = Dir(FilePath)

> FileSystemObjectオブジェクトのGetFileNameメソッドを使うと簡単に取得できます。
Filename = CreateObject("Scripting.FileSystemObject").GetFileName(FilePath)

> 文字列操作でもやろうと思えばできますけど。
Filename = Mid(FilePath, InStrRev(FilePath, "\") + 1)

> 一番簡単だ
の基準がわからない。文字列操作(InStrRev+Mid)がいちばん簡明だと思うんだけど。
(Splitは一見簡単そうに見えるけど、無駄なところが多い。)

Blueさん：
ご回答ありがとう。

> ちなみに存在するファイルパスであれば、Dir関数で取れます。
> Filename = Dir(FilePath)
>
この関数があるだ、VBですごくわかりやすいですね。（これを使います）

> > FileSystemObjectオブジェクトのGetFileNameメソッドを使うと簡単に取得できます。
> Filename = CreateObject("Scripting.FileSystemObject").GetFileName(FilePath)
>
> > 文字列操作でもやろうと思えばできますけど。
> Filename = Mid(FilePath, InStrRev(FilePath, "\") + 1)
>
> の基準がわからない。文字列操作(InStrRev+Mid)がいちばん簡明だと思うんだけど。
> (Splitは簡単だけど、無駄なところが多い。)

いろいろ方法があるのですね、勉強になりました。

ありがとうございました。