[已解决]如何复制文件至D盘，并且改为固定名称！谢谢

飞云流水

如何复制文件至D盘，并且改为固定名称！谢谢

最佳答案

月排行榜 / 总排行榜

sliang28

2013-6-10 21:58

1. Private Sub CommandButton1_Click()
   
2. rpath = "c:\数据"   '源文件目录
   
3. dpath = "d:"   '目标目录
   
4.     s = Dir(rpath & "数据草稿" & "*.xlsx")
   
5.         Do While s <> ""
   
6.             FileCopy rpath & s, dpath & s
   
7.             s = Dir
   
8.         Loop
   
9. End Sub

复制代码

跳转到最佳答案楼层

sliang28

1. Private Sub CommandButton1_Click()
   
2. rpath = "c:\数据"   '源文件目录
   
3. dpath = "d:"   '目标目录
   
4.     s = Dir(rpath & "数据草稿" & "*.xlsx")
   
5.         Do While s <> ""
   
6.             FileCopy rpath & s, dpath & s
   
7.             s = Dir
   
8.         Loop
   
9. End Sub

复制代码

飞云流水

sliang28 发表于 2013-6-10 21:58

文件被复制了，但我想改为保存为固定的文件名，数据.xlsx,现在只是能把原文件复制到指定目录了

sliang28

同一个目录下怎么能保存相同文件名的文件呢?

飞云流水

sliang28 发表于 2013-6-10 22:14
同一个目录下怎么能保存相同文件名的文件呢?

Sub FZ()
rpath = "c:\数据\"   '源文件目录
dpath = "d:\"   '目标目录
    s = Dir(rpath & "数据草稿" & "*.xlsx")
   
        Do While s <> ""
            FileCopy rpath & s, dpath & "数据.xlsx"
            s = Dir
        Loop
End Sub

可以了，谢谢

sliang28

这不就是我写给你的嘛! 这个还不能改文件名的,因为你要求我不明白命名规则是什么,所以没有添加改名的代码上去.