Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\XXXXXXX.XXX" , "D:\123\", OverwriteExisting

样本是这样,意思是拷贝到D:\123的目录下,文件名要发生改变.变成XXX070901_070907,两个数字是日期,中间用下划线隔开,两个日期之间相差一周.

太菜的问题了...完全没头绪.哪位仁兄仁姐帮一下....花一两分钟给我个例子看看.

变成XXX070901_070907,两个数字是日期,中间用下划线隔开,两个日期之间相差一周.

不太理解。

不好意思...表达都出问题了.

就是要求复制的目标文件名,要求是由两个日期组成的,例如"\name070901_070907",后面那个日期是今天的date(),两个日期之间相差是七天...

天啊,我在说什么

[此贴子已经被作者于2007-9-29 15:38:28编辑过]

说明一下,由于文件名要自动生成,所以我不会弄...用字符串赋值可以解决?

Private Sub Command1_Click()
Dim s As String
Dim d As Date
d = DateAdd("d", 7, Date)
s = "name" & Year(Date) & Month(Date) & Day(Date) & "_" _
& Year(d) & Month(d) & Day(d)

FileCopy "d:\backup.sql", "d:\backup\" & s & ".sql"
MsgBox "success"
End Sub

谢谢大侠,我会努力学习的.

再顶一起一次.

d = DateAdd("d", 7, Date)这句提示错误....想很久想不通.

Dim d As Date
d = DateAdd("d", 7, Date)

vb6下测试成功.

我是菜菜菜手，拿把菜刀我在行，你问的我就不知道了

表达式