目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
7 / 118 ﾂﾘｰ ←次へ　｜　前へ→
【292】１つ、２つ上のフォルダ名取得 Jaka 19/6/8(土) 18:04 Excel[未読]
【292】１つ、２つ上のフォルダ名取得
Excel  Jaka  - 19/6/8(土) 18:04 -
引用なし
パスワード
   ブックのある１つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.Path)
MsgBox CreateObject("Scripting.FileSystemObject").Getfolder(ThisWorkbook.Path).ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..")

ブックのある２つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).ParentFolder.ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..\..")

参考
ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36400;id=exce
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
7 / 118 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free