上面的问题已经解决。dir在此不适用。
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim fso,myfile,daystr,dstr,fname
dstr = FormatDateTime(Date)
fname="d:\" + dstr + ".xls"
Set fso = CreateObject("s cripting.FileSystemObject")
If (fso.FileExists(fname)) Then
Else
Set MyFile = fso.GetFile("d:\backup\value.xls")
MyFile.Copy (fname)
End if
End Sub