ファイルパスの入っている変数のフォルダ名の部分を取得したい。

Question

お世話になっております。

余りVBAに慣れていないため質問度々本当に失礼いたします。

今
/hoge/フォルダに置いたfugafuga.xlsxを一つ上のフォルダに置きたいと思って
グーグルさんで”VBA　フォルダ移動”で調べたのですが
https://atmarkit.itmedia.co.jp/ait/articles/1705/02/news020.html
記載のfso.MoveFileが使えそうと思ったので実装してみようと思いました。

ですが今現在のフォルダ名の取得方法が分かりません……
ファイル名は
fso.GetFileName(fullfileName)
で取得出来るので
fso.GetFolder (fullfileName)
かな？と思って実装してみたらエラーでした……

どうやったら現在のフォルダが取得出来るのか
なんという語句でググれば良いのか伺ってよろしいでしょうか？

基本的な質問で申し訳ないのですが何か情報をお持ちな方はコメント頂けますと嬉しく思います。

Comments

[退会済みユーザー]

https://www.google.co.jp/search?q=VBA+%E7%8F%BE%E5%9C%A8+%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80
現在フォルダというのも、カレントディレクトリと使用中のブックのあるフォルダだと若干意味合いが変わってきます。どちらの意味ですか？

[ma2hiro]

失礼しました。
上記　fso.GetFolder (fullfileName)　で指定しているfullfileName　内は
\\192.168.7.77\gyoumu\事業管理\★事業実績データ\20201020_9月利益.xlsx
なので引数で引っ張ってきたフルパスからフォルダを取得したいと思っております。
上記でしたら
\\192.168.7.77\gyoumu\事業管理\★事業実績データ\
です……
なんかそのようなフォルダ操作がfsoで出来れば良いなと思っております。

[退会済みユーザー]

単純に、ファイルパスの入っている変数のフォルダ名の部分を取得したい、という事でしょうか？
それでは、質問文もそのように直してください。
回答者が見て、質問者が何をしたいか目的が明確に把握できる質問文にしてください。投稿前に、一度回答者の気分になって質問文を読み直してから投稿するといいかもしれません。

[ma2hiro]

radian様
仰る通りですね……反省します。
落ち着いて見直して書くようにします。

この度はご忠告ありがとうございました。

[退会済みユーザー]

そして、タイトルをぶつ切りにして検索するだけでも多分目的の処理に辿り着くのでは。
https://www.google.co.jp/search?q=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%83%91%E3%82%B9+%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E5%90%8D+VBA

[ma2hiro]

ありがとうございますっ
.GetParentFolderName
で取得出来ました。

ファイルパス フォルダ名 VBA　で検索すれば出てきましたね……
本当にありがとうございました。

[退会済みユーザー]

やりたい事を実現するための機能を考える。
⇒その機能を探すための単語を考える。
⇒その単語を検索する。あまりヒットしなかったら、単語の表現を変えて検索してみる。
をセットにすれば、大体の問題は解決する筈です。多少曖昧でも、それなりには検索に引っかかるので。

[ma2hiro]

ありがとうございます。
＞あまりヒットしなかったら、単語の表現を変えてみる。
が重要ですね……

この事を忘れないようにします。
ありがとうございました。

Answer 1

radian様のタイトルをぶつ切りにして検索するだけでも多分目的の処理に辿り着くのでは。
ファイルパス フォルダ名 VBA にて検索
と助言頂いたURLより
https://excel-ubara.com/excelvba4/EXCEL275.html
が見つかり
こちらに表記してありました

'ディレクトリ
MsgBox objFSO.GetParentFolderName(sFile)

で解決しました……

上手く検索出来なかった場合
検索ワードを細切れにしたり何か工夫するようにします。

ありがとうございました。

Answer 2

そのリンク先の連載一覧を見たらそれらしい記事があるのですが、
ご覧になりましたか？

Comments

[ma2hiro]

80
VBAにおけるFileDialog／エクスプローラー操作の基本＆ドライブの空き容量、ファイルのサイズやタイムスタンプの取得方法
79
Excel VBAを使ったCSVファイル読み込み時の高速化、タブ区切り対応、ダブルクォーテーション削除のコツ
78
VBAでフォルダを移動させるMoveFolder、ファイルを移動させるMoveFileメソッドの使い方
77
VBAで親フォルダのパスを取得する方法、Folderオブジェクトのいろいろな使い方
76
VBAでファイル名や拡張子を取得する方法、特殊フォルダを取得する方法
のどれかなのでしょうか？

軽くしか見ておりませんがどこに記載があるかお教え頂けますと嬉しく思います。