「権限が拒否されました」というエラーが表示される場合は、どうしたらいいですか？

Question

私は、ファイルの束とフォルダの中の名前の日付に基づいて特定のファイルを見つけようとしています、それは別のフォルダに移動すると、単純な音ですか？まあ、私は

許可

エラーを拒否されました、そして私のコードが悪い場合や、ファイルアクセスの問題だ場合、私はわからないが取得しています。どんな助けもありがとう！これは私のコードです：私は@Alex Kの役に立つ提案に基づいてコードを変更した

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

、それが今で完璧に動作します。問題は、送信先のファイル名だけを指定していないことです。修正していただきありがとうございます！

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