我想添加一个时间戳，其中包含要复制的文件夹名称的原始名称(在vb.net中)

Imports System.IO

Module Module1
    Sub Main()
        Dim folderPath As String = "C:\Path\To\Folder" '要复制的文件夹路径
        Dim originalName As String = "OriginalName" '原始名称

        Dim timestamp As String = DateTime.Now.ToString("yyyyMMddHHmmss") '生成时间戳
        Dim newFolderName As String = originalName & "_" & timestamp '新文件夹名称

        Dim newFolderPath As String = Path.Combine(Path.GetDirectoryName(folderPath), newFolderName) '新文件夹路径

        Directory.CreateDirectory(newFolderPath) '创建新文件夹

        '复制文件夹中的所有文件和子文件夹到新文件夹
        For Each filePath As String In Directory.GetFiles(folderPath, "*", SearchOption.AllDirectories)
            Dim relativePath As String = filePath.Substring(folderPath.Length + 1)
            Dim newFilePath As String = Path.Combine(newFolderPath, relativePath)
            Directory.CreateDirectory(Path.GetDirectoryName(newFilePath))
            File.Copy(filePath, newFilePath)
        Next

        Console.WriteLine("文件夹复制完成。新文件夹名称为: " & newFolderName)
        Console.ReadLine()
    End Sub
End Module