[已解决]把AAA文件夹内的A.txt复制到BBB文件夹A.txt,谢谢zjdh老师

lhj323323

老师：

如何通过VB实现如下功能：
把AAA文件夹内的A.txt复制到BBB文件夹A.txt

本横板.XLS在上述两个文件夹之外。

A.txt是同名文件，我希望在复制时，电脑不要弹出提示对话框。

先谢谢了，本求助贴无附件。

最佳答案

月排行榜 / 总排行榜

zjdh

2016-6-22 08:42

Sub TEST()
   PT = ThisWorkbook.Path & "\"    '指定路径
   FileCopy PT & "AAA\A.TXT", PT & "BBB\A.TXT"
End Sub

跳转到最佳答案楼层

zjdh

到底是A.xls还是A.txt？？

zjdh

Sub TEST()
   PT = ThisWorkbook.Path & "\"    '指定路径
   FileCopy PT & "AAA\A.TXT", PT & "BBB\A.TXT"
End Sub

lhj323323

zjdh 发表于 2016-6-22 08:29
到底是A.xls还是A.txt？？

是A.txt，一楼已把错误更正。

lhj323323

lhj323323 发表于 2016-6-22 10:50
是A.txt，一楼已把错误更正。

谢谢zjdh老师，测试成功了！

爱疯

如果别人确实帮助解决了问题，还是建议设置最佳。

lhj323323

爱疯 发表于 2016-6-22 12:52
如果别人确实帮助解决了问题，还是建议设置最佳。

谢谢提醒！，已改正

爱疯

lhj323323 发表于 2016-6-22 14:19
谢谢提醒！，已改正

现在对我个人来说，学习本身比最佳更重要。。。。。。。。。。真不好意思{:241:}

但对于论坛中更多的初学者，刚开始进入答题学习阶段，最佳激发他们更多的热情，对求助者和回复者都有益。
因此，鼓励在问题确实解决后，尽量设置最佳答案。当然，这里的最佳并非是最好的，而是一种象征和激励。

lhj323323

爱疯 发表于 2016-6-22 15:02
现在对我个人来说，学习本身比最佳更重要。。。。。。。。。。真不好意思

但对于论坛中更多的初 ...

嗯，我是这几年没有接触贵论坛了，把之前的习惯也忘记了不少，想起来也惭愧，这是我们求助者应有的素质。
刚才把今年所有的求助成功的贴子都补上了最佳。
再次谢谢爱疯老师！