蓝色信仰

摘要： Set oFso = CreateObject("Scripting.FileSystemObject")Set oFolder = oFso.GetFolder(sPath)mpath="d:\1" rem:这里设置你要拷进去的文件夹路径Set oFiles = oFolder.FilesFor Each oFile In oFiles If FormatDateTime(ofile.DateCreated,1)=FormatDateTime(Date,1) Then ofso.CopyFile ofile.Path,mpath End ifNextS 阅读全文