"Permission Denied"오류가 발생하는 이유는 무엇입니까?

Question

여러 파일이 들어있는 폴더의 이름에 날짜를 기반으로 특정 파일을 찾고 다른 폴더로 이동하려고합니다. 간단하게 들릴까요? 글쎄, 난

권한이

오류를 거부 얻고, 나는 내 코드가 나쁜 경우 확실하지 오전 또는이 파일 액세스 문제가 있다면. 어떤 도움을 주시면 감사하겠습니다! 내 코드는

Sub MoveFiles() 
Dim myValn As String 
Dim ws As Worksheet 
Dim ws2 As Worksheet 
Dim myDate3 As String 
Dim Wmsn As String 

    Set ws = ThisWorkbook.Worksheets("UPLOADER") 
    Set ws2 = ThisWorkbook.Worksheets("VARIABLES") 

myName = ws2.Range("B2").Value 
myValn = ws2.Range("B1").Value 
myDate3 = Format(Date, "mm-dd-yyyy") 
Wmsn = "WMS_36196_PROD_" & myDate3 & ".csv" 'trying to find the file to move with the current date in it's name 
              'example filename is WMS_36196_PROD_12-21-2017.csv 


'source path below 
FileCopy "\\Rdcicgtcuwd01p\app_log\36196_WMS\" & Wmsn, _ 
"\\olscmesf003\gcm_emea\TCU_REPORTS\APPS\Reports\Regional\Workflow Management System\2017\" 'destination path 

End Sub 

Answer 1

@Alex K의 유용한 제안을 기반으로 코드를 수정했으며 현재 완벽하게 작동합니다. 문제는 대상에 대한 파일 이름을 지정하지 않았고 원본에 대해서만 지정했기 때문입니다. 수정 해 주셔서 감사합니다!

Sub WMS() 
Dim myValn As String 
Dim ws As Worksheet 
Dim ws2 As Worksheet 
Dim myDate3 As String 
Dim Wmsn As String 
Dim Wmsn2 As String 

    Set ws = ThisWorkbook.Worksheets("UPLOADER") 
    Set ws2 = ThisWorkbook.Worksheets("VARIABLES") 

myName = ws2.Range("B2").Value 
myValn = ws2.Range("B1").Value 
myDate3 = Format(Date, "mm-dd-yyyy") 
Wmsn = "WMS_36196_PROD_" & myDate3 & ".csv" 
Wmsn2 = "36196_WMS_" & myDate3 & ".csv" 

'source path below 
FileCopy "\\Rdcicgtcuwd01p\app_log\36196_WMS\" & Wmsn, "\\olscmesf003\gcm_emea\TCU_REPORTS\APPS\Reports\Regional\Workflow Management System\2017\" & myValn & "\" & Wmsn2 

End Sub