dim fso set fso = CreateObject("Scripting.FileSystemObject") call fso.CopyFile("C:\Users\Administrator\Desktop\5.txt", "C:\Users\Administrator\Desktop\1.txt") set fso = nothing 复制代码
dim fso set fso = CreateObject("Scripting.FileSystemObject") call fso.CopyFile("C:\Users\Administrator\Desktop\5.txt", "C:\Users\Administrator\Desktop\1.txt") set fso = nothing