Comment enregistrer un fichier avec la date système dans le VB.NET ?

J'ai ce Module en VB.NET

ScreenShot.vb
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Imports System.Windows.Forms 'VB
Module ModulePrintscreen 'VB
    Sub Main() 'VB
        Dim MaDate As String
        SendKeys.SendWait("{%}({PRTSC})") 'VB
        If My.Computer.Clipboard.ContainsImage() Then 'VB
            MaDate = Format(Now,"dd-MM-YYYY_hh-mm-ss")
            My.Computer.Clipboard.GetImage.Save(MaDate & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 'VB
        End If 'VB
    End Sub 'VB
End Module 'VB
Donc je veux récupérer un fichier avec le nom 04-03-2015_03-13-47.jpg
mais hélas je récupère uniquement ceci
04-03-YYYY_03-13-47.jpg
Comment corriger ce module merci
je fais ceci en passant par un batch

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
@echo off
for /F %%i in ('dir /B /S ^"%WinDir%\Microsoft.NET\Framework\vbc.exe^"') do set vbc=%%i
if /i "%vbc%"=="" cls&color 1c&Ce script a besoin du framework&pause
echo %vbc%
echo Compilation
%vbc% /nologo /out:"ScreenShotVB.exe" "ScreenShotVB.vb"
echo Execution du .exe
ScreenShotVB.exe
Pause