文字列（fullpathfileName）のファイルを一つ上のフォルダに移動させたい

Question

年末の引き継ぎのため度々お問い合わせしてもう本当に申し訳ございません……

今現在VBAで
String　fullpathfileName を一つ上のフォルダに移動させるプログラムを書いております……

    Dim jinenndoFile As String, copyDir As String
    jinenndoFile = range("B2").Value
    copyDir = range("B3").Value & "\"

    Dim fso As Object
    Set fso = New FileSystemObject ' インスタンス化
    Dim nextKonnenndoFilename, nextJinendoFilename As String
    '次年度の方が同じファイル名でありそうだから先にする……
    Dim f As File
    Dim dirname, dirnameMoto, strtpm2 As String
    nextJinendoFilename = strKiPlusOne(jinenndoFile)
    Set f = fso.GetFile(jinenndoFile)
    f.Name = nextJinendoFilename 'コレでファイル名変更らしいhttps://www.tipsfound.com/vba/18011
    dirname = fso.GetParentFolderName(jinenndoFile)
    dirnameMoto = Left(dirname, InStrRev(dirname, "\"))
    Debug.Print jinenndoFile, dirnameMoto
    strtpm2 =dirnameMoto."\期+1と式コピー前\".nextJinendoFilename
    fso.MoveFile strtpm2, dirnameMoto

と今B2のjinenndoFileの期をstrKiPlusOneという関数で
＋1したファイル名をnextJinendoFilename のフルパスにしております……

それでそのファイルが格納されているフォルダ　\期+1と式コピー前
の一つ上に移動させたく上記のように実装してしまったのですが
上記のように凄い不格好なのです……

なんかフルパスで持っているファイルを
一つ上のフォルダに移動させるVBAの関数は無いのでしょうか？
上記ソースでは\期+1と式コピー前\とソースに書いてあるのが不格好過ぎて自分が情けないのです……

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

Comments

[退会済みユーザー]

結局どうしたいのかよく判らないのですが。
不格好でも、想定通り動いているのなら問題ないのでは？

[jinoji]

タイトルだけ見たら
f.Move f.ParentFolder.ParentFolder.Path & "\"
的なことがしたいのかと思ったけど、コードを見てわからなくなりました。

[ma2hiro]

説明不足大変申し訳ございません。

fullpathfilename に　”\\hoge\fuga\file.xlsx”と入っている時に
そのfile.xlsxを\\hoge\file.xlsx
に移動させたいと思っていて
fugaが不明の場合そのような命令があれば良いと思っているのです……

そのような命令はVBAには無いのでしょうか？

[ma2hiro]

と書いてjinoji様の
f.Move f.ParentFolder.ParentFolder.Path & "\"
が出来そうな気がするので見てみます……

[退会済みユーザー]

都合よく1命令で出来るものが用意されていない事なんて幾らでもあるので、無ければ複数のやり方を組み合わせたり、自分で関数を作ればいいだけです。
自分で考えないと、何時までたっても応用力が身に付かないですよ。

[ma2hiro]

radian様
ご忠告痛み入ります。
今回は　1命令で　上のフォルダ　を取得出来そうな気がしたのですが
f.ParentFolder.ParentFolder.Path & "\"
　↑親の　　　　↑親の　　　↑パス
で出来ますね……

失礼いたしました。

Answer 1

具体的にはたとえば以下のようなフルパスがあったとき
D:\aaaa\bbbb\cccc\dddd.txt
これを↓
D:\aaaa\bbbb\eeee.txt
(dddd.txtを bbbbの直下に移動し
ファイル名 dddd.txt を eeee.txt にrename)

のようにしたいということでしょうか?

上記でよければ

• FileSystemObjectを使う必要はありません
• ｢自分の1つ上のフォルダパス｣は、後ろから数えて2つ目の""の位置なので
  instrRevを2回繰り返せば切り出せます。
• VBAにファイル移動のコマンドはありませんが、コピーと削除のコマンドは
  あります。コピーの後、コピー元を削除すれば移動になります。

  Dim fullPathFileName As String

  Dim dstPath As String
  Dim ix As Long
  
  fullPathFileName = "Z:\aaaa\bbbb\cccc\dddd.txt"
  ix = InStrRev(fullPathFileName, "\")                ' 1つ目の\
  ix = InStrRev(fullPathFileName, "\", ix - 1)        ' 2つ目の\
  dstPath = Left$(fullPathFileName, ix)               ' 一つ上のパスの切り出し
  FileCopy fullPathFileName, dstPath & "eeee.txt"     ' ファイルコピー、コピー先のファイル名は変更
  Kill fullPathFileName                               ' コピー元の削除

注意：上記コードは｢￥｣が｢／｣で表現されていますのでご注意ください。

Comments

[ma2hiro]

FileSystemObject を使用しない方法のやり方ご教授頂き感謝いたします。

今回はファイル名変更などしたいのでFileSystemObjectは使用するのは確定なのですが
参考にさせて頂きます。

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

Answer 2

jinoji様からツッコミがありました

    Set f = fso.GetFile(jinenndoFile)
    f.Move f.ParentFolder.ParentFolder.Path & "\"

で解決しました……

本当に基本的な質問失礼しました。