Option Explicit

Public Const 移動先 As String = "00 全般\個人フォルダ\×××\13_金属相場\1_相場更新\金属相場csvダウンロードファイル\"

Sub 銅建値copy()

    Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")

    ''C:\Tmp\フォルダ内の*.xlsxをC:\Work\フォルダに移動します

'    FSO.MoveFile "C:\Tmp\*.xlsx", "C:\Work\"

     FSO.MoveFile "C:\Users\×××\Downloads\*_c120_4.csv", 移動先 & "Cu・Cu建値\国内銅建値(c120_4)\"

    Set FSO = Nothing

End Sub