Visual Basic 添加到时间戳日期

Question

我正在调整现有的文件传输 windows 服务，该服务将发送的文件重命名为时间戳。出于测试目的，我需要使发送的文件在实际发送时提前 10 天显示在目标目录中。例如：如果它是在 11/23/2015 发送的，它需要看起来像是在 12/03/2015 送达。

生成文件名的代码行如下所示：

    Dim strFileNameToTransfer As String = My.Settings.FileDirectory.ToString() & Format(Now(), "yyyy") & Format(Now(), "MM") & Format(Now(), "dd")

如果在 2015 年 11 月 23 日发送，文件名显示在这样的目录中： “20151123.xml” 但我需要它像这样显示： “20151203.xml”

还需要调整月份，因为测试将跨入 12 月，现在是 11 月。

就像我说的，这是为了测试目的，所以它需要回到测试结束时的状态。我真的只需要在这里快速修复，但我对 Visual Basic 的了解为零，而且我对一般编程仍然是新手。求助！

Answer 1

您所要做的就是在现有日期基础上增加 10 天，并将该日期用作您的文件名。您也可以不需要将格式拆分为三个不同的字符串。

    Dim fileDate = Now().AddDays(10)
    Dim strFileNameToTransfer As String = My.Settings.FileDirectory.ToString() & Format(fileDate, "yyyyMMdd")

编辑：

gmiley说的对，用Path.Combine代替字符串拼接

更好

Dim NameToTransfer As String = System.IO.Path.Combine(My.Settings.FileDirectory.ToString(), String.Format("{0}.{1}", fileDate.ToString("yyyyMMdd"), "xml"))

Visual Basic 添加到时间戳日期

Visual Basic add to timestamp date

vb.net

timestamp

days