【VBA】フォルダ内ファイル一括移動

前提・実現したいこと

現在社内でフォルダAに投函されたファイルを一式でフォルダBに移動させるマクロを組んでいます。VBA初心者のため色々調べたりして作っているのですがどうしても解決できず投稿させていただきました。

もし解決法ご存じの方おられましたらご教授いただけませんでしょうか？
よろしくお願いいたします。

【前提】
移動元→フォルダA：社内共有サーバー内・権限設定なし
移動先→フォルダB：社内共有サーバー内・書き込み、閲覧のみ許可

移動させるファイル：シリアル番号XXXを含むpdfファイル
(シリアルはExcelに記入してそこから引用)

【目的としている挙動】
エクセルでマクロ登録したボタンを押したらフォルダAからフォルダBにファイルが移動

発生している問題・エラーメッセージ

フォルダBの権限設定と内部の処理処理から起因するトラブルのようです。
管理者権限でアクセスしたら動作するが、一般アカウントでアクセスすると「ファイルが見つかりません」で動作停止。
フォルダを確認すると移動する予定のファイル一つだけがフォルダBにコピーされている。
その際、フォルダAの方のファイルも残ったまま。

該当のソースコード

'■フォルダ内のファイルを全て、別フォルダにコピーペーストする
Sub File_Move_All()

Dim Path As String
Dim CopyPath As String
Dim Serialno As String
Dim FName As String
 
'■ファイル名取得するディレクトリ、コピペするディレクトリを入れる
Path = Cells(175, 4).Value
CopyPath = Cells(178, 4).Value
Serialno = Cells(6, 4).Value

　　'■ワイルドカード()を使用し、pdf拡張子のファイルを全て
FName = Dir(Path & Serialno & ".pdf")

'■Loopでファイルを取得→ファイルを別フォルダにコピー
Do While FName <> ""
   FileCopy Path & FName, CopyPath & FName
   Kill Path & FName
   FName = Dir()
Loop

試したこと

Filemove関数も試してみたがうまくいかなかった

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

itagagaki

2021/04/27 03:13

管理者権限でアクセスしたら動作するということは、プログラムの問題ではなく共有フォルダのアクセス権の設定の問題のような気がするのですが、そこは確認されましたか？

battller

2021/04/27 03:56

返信ありがとうございます。記載している通りなのですが、移動先フォルダには「書き込み・閲覧権限のみ」となっています(削除・修正・上書きNG)が現場で運用してもらうものになるためそちらの権限変更は難しいという状況です。権限状態そのままで使用するためにLoop条件等修正する必要あるかと色々トライしているのですが、手詰まりで困っているという状況です。

itagagaki

2021/04/27 04:07

「ファイルが見つかりません」というのは移動元へのアクセス権の問題のような気がするのですが、そちらはどうですか？

xail2222

2021/04/27 06:53 編集

詳細は、よくわからないのですが FName = Dir(Path & Serialno & "*.pdf") ではSerialnoが含まれていますが FileCopy Path & FName, CopyPath & FName ではSerialnoが入ってません。どういうことなのでしょうか。管理者権限で実行できているのであれば、うーん。これでも動くということでしょうか。とりあえず状況を再現できればいいのですが、再現できないですね… あと「社内共有サーバー内・書き込み、閲覧のみ許可」ってどんなサーバーなのでしょう。

tosi

2021/04/27 07:41

サーバーへ起動前に管理者で接続してもダメですか？ ---------------------------------------------------------------- net use \\社内共有サーバー\IPC$ 管理者 /user:パスワード Exceマクロ実行 net use \\社内共有サーバー\IPC$ /delete /y ----------------------------------------------------------------