ランタイムエラー70ファイルを別のフォルダに移動する際のアクセス許可が拒否されました

Question

すべてのExcelファイルをあるフォルダパスから別のフォルダパスに移動しようとしましたが、アクセス権が拒否されました。ここに私のコードだ：

Sub Move_Certain_Files_To_New_Folder() 

    Dim FSO As Object 
    Dim FromPath As String 
    Dim ToPath As String 
    Dim FileExt As String 
    Dim FNames As String 

    FromPath = "R:\FromPath\Files" '<< Change 
    ToPath = "R:\ToPath\Backup" & Format(Now, "yyyy-mm-dd h-mm-ss") 

    FileExt = "*.xl*" 

    If Right(FromPath, 1) <> "\" Then 
     FromPath = FromPath & "\" 
    End If 

    FNames = Dir(FromPath & FileExt) 
    If Len(FNames) = 0 Then 
     MsgBox "No files in " & FromPath 
     Exit Sub 
    End If 

    Set FSO = CreateObject("scripting.filesystemobject") 

    FSO.CreateFolder (ToPath) 

    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath 
    MsgBox "You can find the files from " & FromPath & " in " & ToPath 

End Sub 

エラーは、この部分からです：FSO.MoveFile出典：= FromPath & FileExt、デスティネーション：= ToPath 任意の助けに感謝します！ :)

Answer 1

ファイルを移動するには、そのファイルに排他的にアクセスする必要があります。別のプロセスが開かれていると（実行時エラー70が発生する）、次のファイルを移動しようとする以外に、できることはあまりありません。

宛先にコピーすることもできます。しかし、ファイルを開いているものは何でも、おそらくそれを変更することを意味し、あなたのコピーはそれらを持っていないでしょう。