vb 复制文件夹 以时间新命名

来源：百度知道 编辑：UC知道 时间：2024/06/05 08:43:45
Private Sub Command1_Click()
If Dir("e:\b", vbDirectory) = "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "e:\a", "e:\b", OverWriteFiles
Else
Name "e:\b" As "e:\1" & Time
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "e:\a", "e:\b", OverWriteFiles
MsgBox "wancheng!"
End If
End Sub

高手们阿，请问如何把要复制的 名字 设置为当前时间 + 保存二字

比如复制过去后的名字是 20:45:42保存

感谢帮忙

Private Sub Command1_Click()
dim objFSO as new fileobjextfile
If Dir("e:\b", vbDirectory) = "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "e:\a", "e:\b", OverWriteFiles
exit sub
Else
Name "e:\b" As "e:\1" & str(Time)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "e:\a", "e:\b", OverWriteFiles
MsgBox "wancheng!",48,"gaoding"
End If
End Sub

timer & "保存"

把要复制的 名字 设置为FormatDateTime(Now, vbLongTime) & "保存"

用Timer不行，因为timer格式为00:00:00，里面包含英文冒号，不能作为文件夹名称。

Format(TImer,"00：00：00")用全角字符。

不可能，文件名中是不允许有冒号存在的。