文件名 VB？？？

建一个Command1完成第一个任务，建一个Command2完成第二个任务。默认在D:\盘了，请自己修改。要保持两行的第一个文件名相同。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
FileCopy "d:\a.txt", "d:\a.log"
Kill "d:\a.txt"
End Sub

Private Sub Command2_Click()
FileCopy "d:\a.txt", "d:\a"
Kill "d:\a.txt"
End Sub

假设这个些文件是在c盘根目录下。
------------------------------------------------------------------------
[格式] name 原文件名 as 新文件名
[实例]：
Name "c:\a.txt" as "c:\a.log"
Name "c:\a.txt" as "c:\a"
------------------------------------------------------------------------
这个语句不能跨驱动器使用，原文件名不存在或新文件名已存在时都将发生错误。
最好检测一下有没有这类文件。