Obtenir le format MMDDYYYY dans le script vb

Question

J'ai un fichier source appelé venkat_file. J'ai besoin d'archiver le fichier dans un dossier d'archives, tout en ajoutant le fichier à ce format, venkat_file_MMDDYYY. Si les valeurs de mois et la date sont moins de 10 je voulais archiver le fichier avec des valeurs spécifiques,

Exemple avant: venkat_file, par exemple la date 4/26/2013, maintenant je dois archiver le fichier afin qu'il ressemble à ceci: venkat_file_04262013, au lieu de venkat_file_4262013.

Merci d'avance,

Venkat.

Answer 1

Vous pouvez ajouter la date en utilisant les éléments suivants

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

Mise à jour

Comme Raybiss a sa non VBscript. J'ai donc mis le vbscript ci-dessous.

<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> 

Answer 2

Vous pourriez avoir une fonction comme celle-ci:

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

et de l'utiliser comme ça:

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