Private Sub Command8_Click()
Dim as1 As String
Dim as2 As String
as1 = "d:\test\*.DAT"
as2 = "d:\"
 FileSystemObject.CopyFile as1, as2
End Sub


提示: 实时错误'424'
要求对象

我有点不明白.帮帮忙.先谢谢各位了

Private Sub Command8_Click()
Dim as1 As String
Dim as2 As String
as1 = "d:\test\CAM00004.dat.bmp"
as2 = "d:\CAM00004.dat.bmp"
 FileSystemObject.CopyFile as1, as2
End Sub


问题没有解决!!

非常感谢.问题解决!