菜鸟问题,文件重命名.

zszsbb 发布于 2007-09-29 15:29， 768 次点击

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

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

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

12 回复

purana2007-09-29 15:35

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

不太理解。

zszsbb2007-09-29 15:38

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

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

天啊,我在说什么

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

zszsbb2007-09-29 15:57

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

purana2007-09-29 15:59

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

zszsbb2007-09-29 16:04

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

zszsbb2007-09-30 10:44

再顶一起一次.

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

purana2007-09-30 10:57

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

vb6下测试成功.

寿百年2007-09-30 11:17

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

#10

我是小新2007-09-30 11:33

表达式

#11

yubeiluo2007-09-30 12:47

表达式

#12

ohtank2007-09-30 12:55

..................

#13

zszsbb2007-09-30 17:07

不知为何又通过了...无语ING