ファイルをコピーする

Function CopyFile( src, dst )
    Dim objFSO

    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    if Err.Number <> 0 Then
        WScript.Quit()
    end if
    if Not objFSO.FolderExists( getFileDir( dst ) )  then
  　　  'ディレクトリを作成
         createDir( getFileDir( dst ) )
    end if
    call objFSO.CopyFile( src, dst, true )
end Function