Option Compare Database
Private Sub Command0_Click()
Dim a As String
Dim b, c, d As String
a = Format(Date, "yyyymmdd")
d = Format(Time, "hhmmss")
b = "bak"
c = "d:\abc" & a & d & b & ".txt" '指定拷贝目录
FileCopy "d:\序.txt", c '拷贝文件的路径
End Sub
这个程序为什么不能把文件TXT拷到ABC文件夹呢?如何改可以做到呢?