拡張子で検索し、ファイル名取得 (ID:106019)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のような感じでしてみたら？ FileName = Replace(FileName, Chr$(0), "", 1, -1,vbTextCompare)