Question

嗨，我需要帮助将文件名设置为.csv 目前，我们可以使用以下代码将文件名设置为2_10_2018user.csv

Set CPY = CreateObject("Scripting.FileSystemObject")

CPY.CopyFile "\\users\user.csv", "\\home\group\" & Replace(FormatDateTime(Date(),2),"","-") & "users.csv",True

Set CPY = nothing
'MsgBox("Done")

Answer 1

不允许在文件/文件夹名称中使用尖括号。实际上，不允许使用以下字符：

/ \ < > ? * | : "

您声明的内容与您有关：

Replace(FormatDateTime(Date(),2),"","-") & "users.csv",True"

可以分解为以下单个命令：

FormatDateTime(Date(),2)

这是告诉系统将系统日期（今天的日期）格式化为简短日期第二个参数的选项是：

0 = vbGeneralDate (date and time)
1 = vbLongDate    (long date)
2 = vbShortDate   (short date)
3 = vbLongTime    (long time)
4 = vbShortTime   (short time)

现在我们有了日期格式，接下来是替换操作：

Replace(FormatDateTime(Date(),2),"","-") & "users.csv",True"

在这种情况下，我们用连字符“-”（-）替换日期分隔符“”（空字符串）

因此文件名的这一部分从010119更改为01-01-19（例如2019年1月1日）

和“ users.csv”附加在所有内容的结尾

最后，“ TRUE”注释告诉系统如果文件已经存在，则对其进行覆盖！

如果要在日期之前使用文件名，则只需将位交换过来：

CPY.CopyFile "\\users\user.csv", "\\home\shared\group\" & "users-" & Replace(FormatDateTime(Date(),2),"","-") & ".csv",True

使用VBScript格式化文件和日期<filename> <date> .csv

1 个答案: