请问高手，用VBA如何把指定文件移动到指定文件夹中？

bzjwcws

我的文件夹中有5个文件，一个”复核.xls“文件（代码文件）、两个excel文件（text1和text2）、一个”数据导出"文件夹、一个“已处理文件”文件夹，我想通过在“复核”文件中设置代码，把两个excel文件（文件名不固定）移动到“已处理文件”文件夹中，请高手赐教，谢谢！

liulang0808

http://club.excelhome.net/blog-238368-1693.html
看看fso资料吧，移动文件的

jiminyanyan

liulang0808 发表于 2014-8-3 10:04
http://club.excelhome.net/blog-238368-1693.html
看看fso资料吧，移动文件的

资料不错，先收藏。。。。。

jiminyanyan

上个附件，以便别人能帮你。。。。。

LangQueS

请参考：

http://club.excelhome.net/dispbbs.asp?boardid=2&id=310742

bzjwcws

谢谢您！代码确实很好：
Sub MoveFil()
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.MoveFile "d:\A\207-011.txt", "d:\B\"
    Set fs = Nothing
End Sub
请问，能不能把路径换成当前路径呢？（ThisWorkbook.Path ）我试了，不行？请赐教！谢谢！

bzjwcws

LangQueS 发表于 2014-8-3 12:28
请参考：

http://club.excelhome.net/dispbbs.asp?boardid=2&id=310742

谢谢您！代码确实很好：
Sub MoveFil()
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.MoveFile "d:\A\207-011.txt", "d:\B\"
    Set fs = Nothing
End Sub
请问，能不能把路径换成当前路径呢？（ThisWorkbook.Path ）我试了，不行？请赐教！谢谢！

jiminyanyan

bzjwcws 发表于 2014-8-3 14:16
谢谢您！代码确实很好：
Sub MoveFil()
    Dim fs

http://club.excelhome.net/forum. ... p;page=1#pid7785534
参考9楼，路径可自行选择。。。。

jiminyanyan

给你定制个小例子，奉上。。。。。

zeropww

我觉得9楼的编写，正是我需要的，赞一个