Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    
    oFSO.copyfile "d:as.doc", "d:aa.doc"