ネットワークドライブにファイルを移動させたい

Question

引数toppassでネットワークドライブのパスを渡して、c:aaa配下にあるa.csvファイルを移動させる関数を作りたいと思っています。

Option Explicit

Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Sub test(filepass As String, topass As String)
Dim fn As String

Call SetCurrentDirectory(topass)
CurDir

…とネットワークドライブがあるかまでは確認できるのですが、そこから先移動させる方法がどうしたらいいのか分からず困っております。
ファイルを移動させる方法をご教示頂けないでしょうか。（可能であればコードが書いてあるサイトなどもご紹介頂けると非常に助かります…）

Answer 1

移動、じゃなくて、ファイルをコピーして元ファイルを削除する、というのでいきましょう

Comments

[退会済みユーザー]

回答ありがとうございます！
無知で申し訳ないのですが、ネットワークドライブの場合は直接の移動とはできないのでしょうか？

[y_waiwai]

できるかもしれない場合もありますが、できないと思っていたほうがいいです

Answer 2

Nameステートメントが使えます。
https://www.moug.net/tech/exvba/0060093.html

filepassおよびtopassがフルパス名であるならこんな感じで。

Sub test(filepass As String, topass As String)
    Name filepass As topass
End Sub

フルパス名ではなくパス名であるなら、引数をフルパス名になるように加工してください。

余談１
移動は上記の方法でできますが、失敗してファイルが紛失する可能性も無きにしも非ずなので、コピーしてから削除するほうが無難かもしれません。

余談２
パスはpassではなくpathです。

Comments

[退会済みユーザー]

ご回答ありがとうございます！
ちなみに分かれば教えて頂きたいのですが、最初はFileSystemObjectオブジェクトのMoveFileでやろうとしたところうまく移動できませんでした。この場合、ネットワークドライブのアドレスだと実行できない原因は何が考えられるのでしょうか？

[ttyp03]

ファイルエクスプローラーからはできるのでしょうか？
権限さえあれば何を使ってもできるとは思いますよ。
あとはパスが間違っていないかはご確認ください。

[退会済みユーザー]

ファイルエクスプローラーからネットワークドライブのアドレスを指定してウインドウを開くことはできました。

また、上記コードの
Call SetCurrentDirectory(topath）
CurDir
のCurDir では、ネットワークドライブのパスが取得できておりました。

移動先にネットワークドライブを指定するようになってから、MoveFileでフルパスを指定する処理による移動できなくなったのでネットワーク接続処理などが必要なのか？？と考えておりました。

[退会済みユーザー]

先程、共有サーバーに接続できるようになったので試した所、Nameステートメントでは移動ができず、
FileCopy→保存元のFileをkillで移動ができました。

詳しく教えて頂けたので、こちらをベストアンサーにさせて頂きます。

[ttyp03]

私の環境ではNameで移動できましたけどね。
たぶんパスの指定が違うのでしょう。
いずれにしてもコピー→削除の方が安全なのでよいとは思いますが。