【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在

Question

タイトルの件、下記のマクロをご覧ください。
ファイル移動のマクロです。

同マクロを実行した際に、下記のエラーが表示されます。

ただし、エラーが出るだけで
実際にマクロは実行されます。

フォルダの移動元と移動先に同じ名前のファイルは
ありません。なのに、同エラーが発生します。

特に、同じファイルがないからマクロは実行される
のだと思います。

windows10は同じフォルダに同じ名前のファイルを
入れようとすれば、上書きするか否かのメッセージも
表示されるかと思います。

エラー回避の仕方をご存じのかた、教えて下さい。



【エラーメッセージ】
実行時エラー58
既に同名のファイルが存在しています


【マクロ内容】

佐藤作成フォルダの中にあるファイルを
バックアップフォルダへ移動する

ファイルの種類や個数に制限はなし

【コード】


Sub い()


Dim fso As New FileSystemObject


	Dim cFile As String

	Dim dFile As String




cFile = "C:\Users\2020\Desktop\マクロ\佐藤作成\*"

dFile = "C:\Users\2020\Desktop\マクロ\バックアップ\"

   
	fso.MoveFile cFile, dFile

End Sub

Qchan1962 · Accepted Answer

ダイアログTitleをよく確認してください

Sub い()
Dim wsh As Object
Dim ds As String
Dim cFile As String
Dim dFile As String

Set wsh = CreateObject("WScript.Shell")
ds = wsh.SpecialFolders("Desktop")

Dim strMsg As String
Dim i As Integer
Dim folderPath(0 To 1) As Variant
strMsg = "< 移動元 > フォルダーを選択してください"
For i = 0 To 1
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ds ' & "\マクロ"
.Title = strMsg
If .Show Then
folderPath(i) = .SelectedItems(1)
Else
MsgBox "もう一度初めから行って下さい", , "キャンセルしました": Exit Sub
End If
End With
strMsg = "< 移動先 > フォルダーを選択してください"
Next
Set wsh = Nothing
strMsg = ""
'folderPath(0)移動元パス 'folderPath(1)移動先パス
Dim fso As New FileSystemObject
Dim f As File
Dim okMsg As String
With fso
For Each f In .getfolder(folderPath(0)).Files
If Not .FileExists(.BuildPath(folderPath(1), f.Name)) Then
okMsg = okMsg & f.Name & vbCrLf
.MoveFile f.Path, folderPath(1) & "\"
Else
strMsg = strMsg & f.Name & vbCrLf
End If
Next f
End With

If strMsg <> "" Then
MsgBox "移動NG同名ファイルリスト" & vbCrLf & strMsg & vbCrLf _
& vbCrLf & "移動実行済みファイルリスト" & vbCrLf & okMsg, , "<確認> 処理内容"
Else
If okMsg <> "" Then
MsgBox "処理ファイルリスト" & vbCrLf & okMsg, , "<確認> 処理内容"
Else
MsgBox "移動元フォルダにファイルはありません", , "<確認> 処理内容"
End If
End If
End Sub

Qchan1962 · Answer

こんにちは
ご質問に掲示されたコードは
\佐藤作成フォルダ内のすべてのファイルを\バックアップ内に移動するものです
（内部的には1つ１つなのでしょうが、処理としてはすべてに対して行うものです）
●ファイルは１つづつ、移動をしています。（ニュアンスが違うようかな）

●同名ファイルは間違いなくありません。
【エラーメッセージ】58
基本エラーメッセージをあてにすると隠しフィルとか・・無いでしょうか？

●移動先のフォルダに、既にあるファイルの数が少ない・・
●移動先のフォルダに、既にあるファイルの数が多い・・・
ローカルで事象を再現できないので・・何とも

色々踏まえて　検証用に作り直してみました。
移動は文字通り1つ1つです
（文字数制限の為）
＃５に挙げるプロシージャを試してみてください

Qchan1962 · Answer

＃２　追記します
＞ただし、エラーが出るだけで実際にマクロは実行されます。
＞特に、同じファイルがないからマクロは実行されるのだと思います。

多分これは勘違いです
同名ファイルが出て来るまでの処理は実行されてキャンセルされない為です
（処理途中までのファイルは移動される）

Qchan1962 · Answer

こんにちは
佐藤作成フォルダ内のすべてのファイルを一気に移動させるのですね
＞フォルダの移動元と移動先に同じ名前のファイルはありません。なのに、同エラーが発生します

変ですね・・1つも同じファイルは存在しません？・・・
移動先フォルダを新規フォルダにして試してみてください

＞windows10は同じフォルダに同じ名前のファイルを入れようとすれば、上書きするか否かのメッセージも表示される
残念ながら、仕様によるエラーなので表示されないです
（#1様が示されているリファレンスをご覧ください）

回避方法
ファイルの存在、重複の確認プロセスが必要になりますので
一気に移動せずに1ファイルづつ移動するやり方で

同名ファイルをどうするかで変わります
移動しない場合は、対象から外す
（On Error Resume Next　や差分リストなどで実行）
移動する場合、リネームで移動

自身で書かれています
https://oshiete.goo.ne.jp/qa/13119613.html　を用いて出来ると思います

人に命令するより機械に命令する方がある意味簡単かもしれませんが
人のように忖度などはありません
従って、仕様を理解して要件をしっかり伝える必要がありますね
（私にはなかなかできませんが）

振り出しに戻る感じでしょうか・・
特定条件でしか実行できないメソッドをどう使うかですね
必要なコードを削除してはいけないと思いますよ

fujillin · Answer

こんにちは

原因はMoveFileの第二引数がファイルスペックになっていないからでしょう。
仕様に「エラーになる」とあります。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/movefile-method

【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在

ダイアログTitleをよく確認してください

こんにちは

＃２ 追記します

こんにちは

こんにちは

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＃２　追記します