|
Application.Filesearchオブジェクトを使用してファイルを指定し、ファイル名
をApplication.getOpenFilenameを使用して変数に格納しようとしています。
=================================================================
Dim fs As Object
set fs = Application.Filesearch
With fs
.LookIn = "XXXX"
OpenFilename = Application.GetOpenFilename(すべてのファイル)
End With
===================================================================
拡張子は特に指定していないのですが、その状態で拡張子のないファイル(例えばabcd)を選択すると、変数に格納されたファイル名の最後に"abcde."のように"."がついてしまいます。
この"."をつけないようにするにはどうすればよいか分からず困っています。
そこで、どなたかお力を貸していただけませんでしょうか?
何卒、宜しくお願い致します。
|
|