把a.txt拷贝到C盘根目录下并重命名为aa.txt
fn="a.txt"
filecopy app.path & "\" & fn "c:\aa.txt"
把a.txt拷贝到C盘根目录下并重命名为aa.txt
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile App.Path & "\a.txt", "c:\aa.txt"
Set fso = Nothing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024