|
ご教授ください。VBA初心者です。
ファイル名称だけ表示したいのですが、
以下のコードだと1つめの¥まで削除して
「ファイル名のみ」までたどりつきません。
選択するファイルの階層は1階層の場合もあれば、
5階層の場合もあります。
どのようにしたらよいか、どなたかご教授下さい。
選択したファイル「C:\ab\cd\ef\gh.csv」
表示したいファイル名「gh.csv」
現状、表示されるファイル名「ab\cd\ef\gh.csv」
---------------------------------------------------------------------
With Application
MyF = .GetOpenFilename("CSVファイル(*.csv),*.csv")
If MyF = "False" Then
Exit Sub
Else
.ScreenUpdating = False
For j = Len(MyF) To 1 Step -1
If Mid(MyF, j, 1) = "\" Then
tmp = Mid(MyF, j + 1, 256)
End If
Next j
MsgBox "選択したファイル名は " & tmp & " です", vbInformation
End If
End With
----------------------------------------------------------------------
以上、宜しくお願い致します。
|
|