| |
みなさん、こんばんは。
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"というパスの存在の如何に関わらず取得できます。
パス専用の文字列編集メソッドと言ったところでしょうか？
このたぐいのメソッド（他にも似たようなのがありますよね）を勘違いして回答して恥ずかしい思いをしたもので・・・。
|
|
ichinose
- 03/1/31(金) 20:55 -
