Question

您好我正在编写一个脚本来重命名并将生成的文件移动到文件夹中。生成的文件的文件名在其末尾附加了时间戳。

例如：Apache34-22-09.bak Tomcat44-26-06.bak

我想从文件名中删除时间戳，如下所示。

例如：Apache.bak Tomcat.bak

请帮帮我。提前谢谢。

Answer 1

For Each fil in fol.Files sName = Left（fil.Name，（Len（fil.Name） - 8））fil.Name = sName Next - arunpandiyarajhen 2分钟前

这也适用于.xlsx等扩展程序。以下代码不会对扩展名进行硬编码。

Sub Sample()
    Dim fileName As String
    Dim Fname As String
    Dim NewFname  as String

    fileName = "Apache34-22-09.bak"

    '~~> Get File name without the extension
    Fname = Left(fileName, (InStrRev(fileName, ".", -1, vbTextCompare) - 1))

    '~~> Create the new file name
    NewFname = Left(Fname, Len(Fname) - 8) & Replace(fileName, Fname, "")

    Debug.Print NewFname
End Sub

Answer 2

您可以使用以下代码：

左（fileName，（Len（fileName） - 12））＆amp;名为 “.bak”

应该是这样，试试看。

如何从文件名中删除时间戳？

2 个答案: