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'
要求对象

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

as2 = "d:\*.DAT"

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


问题没有解决!!

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

如果像你说的那样,应该是:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile as1, as2

非常感谢.问题解决!

举手之劳.不足挂齿.