Метод FileCopy VBA Отказано в доступе к последнему файлу - PullRequest
0 голосов
/ 26 марта 2020

Я хочу скопировать файл из одной папки (A) в другую (B). Я получаю сообщение об ошибке отказа в разрешении, когда последний файл копируется в папку B. Не могли бы вы помочь мне решить эту проблему. Я искал решение, но не нашел ничего, что могло бы мне помочь.

Dim fso As New FileSystemObject
Dim DestinationFld As String, fldName As String, ExtArray As Variant, Ext As Variant, TransferFile As String
Dim CopyFile As String, PasteFile As String
fldName = "Added"

DestinationFld = inPath & fldName
If Not fso.FolderExists(DestinationFld) Then
    fso.CreateFolder DestinationFld
End If

On Error GoTo ErrorHandler
ExtArray = Array("*.msg*")
If Right(DestinationFld, 1) <> "\" Then DestinationFld = DestinationFld + "\"
For Each Ext In ExtArray
    TransferFile = Dir(inPath & Ext)
    Do While TransferFile <> ""
        CopyFile = inPath & TransferFile
        FileCopy CopyFile, DestinationFld & TransferFile
        Kill CopyFile
        TransferFile = Dir
    Loop
Next
ErrorHandler:
    If Err.Number = 70 Then
        Exit Sub
    Else
        MsgBox "Unknown Error"
    End If

Переменная inPath объявлена ​​ранее, и это путь к моему P C. Путь выглядит следующим образом "C: \ Users \ Documents \"

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...