Set fs = CreateObject("Scripting.FileSystemObject")

             fs.CopyFile "D:\test\" & Cells(1, 1) & "\新建 文本文档.txt", "D:\test\新建文件夹\新建 文本文档.txt"
           
            
            Name "D:\test\新建文件夹\新建 文本文档.txt" As "D:\test\新建文件夹\1.txt"
           
fs.CopyFile "D:\test\test\" & Cells(2, 1) & ".txt", "D:\test\新建文件夹\"

 

听说今天打得不错，顶下！

谢谢分享，支持

      

打得不错，有进步！

xiazai le   woyaokan