Vb.net 在vb脚本中获取MMDDYYYY格式

我有一个名为

venkat_file

的源文件。我需要将文件归档到归档文件夹中，同时将文件附加到此格式，

venkat_file_MMDDYYY

。如果月份和日期值小于10，我想用特定值存档文件

之前的示例：

venkat_文件

，示例日期

4/26/2013

，现在我需要归档文件，使其看起来像这样：

venkat_文件_04262013

，而不是

venkat_文件_4262013

提前感谢,

---

Venkat.

您可以使用以下命令追加日期

Dim ThisDate as string
'
ThisDate = format(now.month,"00") &  format(now.day,"00") & format(now.year,"0000")

更新 正如Raybiss指出的，它不是vbscript。 所以我把vbscript放在下面

<script type="text/vbscript" id="ArchiveFile">
' <!--
Function GetNewArchiveFilename(ThisFile)
'
Dim ThisDay, ThisMonth, ThisYear
Dim ThisFName
'
  ThisDay = day(date)
  ThisMonth = month(date)
  ThisYear = year(date)
  ThisFName = Left(Thisfile, len(thisfile)-4) & FormatNumber(Thisday,0,-1) & formatnumber(Thismonth,0,-1) & formatnumber(thisyear,0,0,0,0) & right(thisfile,4)
  'msgbox(thisfname)
  return thisfname
'
End Function
' -->
</script>

' 

您可以使用如下功能：

Function FormatNum(n, totalDigits) 
  If totalDigits > Len(n) Then 
      FormatNum = String(totalDigits - Len(n),"0") & n 
  Else 
      FormatNum = n 
  End if 
End Function

然后像这样使用它：

s = FormatNum(Month(Date()) , 2) & _
    FormatNum(Day(Date()), 2) & _
    Year(Date())

---

这将是VB/VBA，但不是VBScript