关于复制的!

FileCopy 是可以绝对路径和相对路径的：

Private Sub Command1_Click()
On Error GoTo ErrorLoad

MkDir "c:\Temp" '在C盘下创建Temp目录。如果目录已存在则会报错
MkDir "a" '在当前运行中的程序目录下创建a目录。如果目录已存在则会报错

FileCopy "123.txt", "a\123.txt" '拷贝当前程序目录下的123.txt 到a目录下

If Dir("a\123.txt") <> "" Then
MsgBox "文件存在", vbInformation
else
MsgBox "文件不存在", vbInformation
End If

FileCopy "a\123.txt", "c:\Temp\123_bak.txt"'拷贝当前程序目录下的子目录a的123.txt 到 C盘的Temp目录下并改名为123_bak.txt

If Dir("C\Temp\123_bak.txt") <> "" Then
MsgBox "文件存在", vbInformation
else
MsgBox "文件不存在", vbInformation
End If

RmDir "c:\Temp" '删除C盘的Temp目录。只能删除空目录，如果目录中有文件则会报错
RmDir "a" '删除当前程序的目录下的a目录。只能删除空目录，如果目录中有文件则会报错