フォルダ内にある全てのファイルをコピーする

   ＜サンプル＞
　　Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
   
    Dim inF As String
    Dim outF As String

    inF = "*****入力元ｱﾄﾞﾚｽ*****"
    outF = "*****出力先ｱﾄﾞﾚｽ*****"
   
   
    FSO.CopyFolder inF, outF, True