|
みなさん、こんばんは。
JakaさんのDir関数で話はついているんですが、
Fsoにおもしろいメソッドがあったもので失礼します。以前これで恥ずかしい思いをしたもので覚えていました。ご参考程度に見ていただければ・・・。
'============================================================
Sub test()
Path = "C:\Documents and Settings\userA\デスクトップ\030127\100.exl"
Set fso = CreateObject("Scripting.FileSystemObject")
nm1 = fso.GetParentFolderName(Path)
nm2 = fso.GetParentFolderName(nm1)
MsgBox Mid$(nm1, Len(nm2) + 2)
Set fso = Nothing
End Sub
で「030127」が取得できます。
これ、おもしろいことに"C:\Documents and Settings\userA\デスクトップ\030127\100.exl"というパスの存在の如何に関わらず取得できます。
パス専用の文字列編集メソッドと言ったところでしょうか?
このたぐいのメソッド(他にも似たようなのがありますよね)を勘違いして回答して恥ずかしい思いをしたもので・・・。
|
|