Я хочу скопировать файл из одной папки (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 \"