| Point ：あるファイルのパス名を取得したがファイル名だけを取り出したい。
Sub Test()
Dim strFileName
strFileName = "C:\My Documents\Test.txt"
'目的のファイルのフルパス
MsgBox Dir(strNameOnly)
End Sub
または
Sub Test2()
Dim strFileName, strNameOnly
Dim i, p
strFileName = "C:\My Documents\Test.txt"
'目的のファイルのフルパス
For i = Len(strFileName) To 1 Step -1
p = p + 1
If Mid(strFileName, i, 1) = "\" Then
Exit For
End If
Next
strNameOnly = Right(strFileName, p - 1)
MsgBox strNameOnly
End Sub
|
