Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76713 / 76732 ←次へ | 前へ→

【3332】Re:マクロを用いて開いたファイルのサブフ...
発言  ichinose  - 03/1/31(金) 20:55 -

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

【3321】マクロを用いて開いたファイルのサブフォルダのパスのみ抽出したいのですが... ntomo 03/1/31(金) 14:20 質問
【3323】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 14:58 回答
【3324】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 15:27 質問
【3327】Re:マクロを用いて開いたファイルのサブフ... Jaka 03/1/31(金) 16:14 回答
【3328】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 16:32 お礼
【3329】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 16:32 発言
【3332】Re:マクロを用いて開いたファイルのサブフ... ichinose 03/1/31(金) 20:55 発言
【3364】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/2/3(月) 9:57 お礼
【6635】改訂版 Jaka 03/7/16(水) 9:13 発言

76713 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free