Office中国论坛/Access中国论坛

标题: 怎样在文件名中加当前系统时间？ [打印本页]

作者: SLLSX977824 时间: 2004-7-28 02:00
标题: 怎样在文件名中加当前系统时间？
想请教一下在VBA中用Name修改文件名时，我想在新名字中加入当前机器的系统时间，应怎样写。

如下代码为什么不对？请多多指教，在此谢过

Dim OldName, NewName

Dim a= Now

OldName = "d:\SL.TXT": NewName = a & ".TXT"

Name OldName As NewName ' 更改文件名，并移动文件。

作者: damagekit 时间: 2004-7-28 14:34
NewName = a & ".TXT"

如果你要在这句加时间的话你可以写成这样不知道行不行,你试一下NewName = & a & .txt

作者: swo 时间: 2004-7-28 16:54
Dim OldName, NewNamedim a as string

a=format(now,"yyyymmdd") '以日期为文件名OldName = "d:\SL.TXT": NewName = a & ".TXT"

Name OldName As NewName ' 更改文件名，并移动文件

作者: sweetduck 时间: 2004-7-29 17:13
文件名不能含有冒号请转换为其他字符

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)