ذخیره کردن یه فایل با اسم تاریخ و ساعت از سیستم

[moustafa]

با سلام
بعد از اسکن کردن سند به فرمت jpg میخوام در یه فولدر ثابت و به اسم تاریخ و ساعت گرفته شده از سیستم ذخیره بشه مثلا jpg.25-20-950920 (ساعت 20:25 مورخه 95/09/20 )
در واقع FileLocation در کد زیر

Private Sub Command4_Click()

Dim FileLocation As String



    Dim scanDiag As New WIA.CommonDialog

    Dim image As WIA.ImageFile

    

    Set image = scanDiag.ShowAcquireImage()

    

    image.SaveFile FileLocation

  

    

End Sub

[moustafa]

با این راه به جواب رسیدم :

Me.dat = Replace(Date(), "/", "")

Me.tim = Replace(Time(), ":", "-")

FileLocation = "d:\" & Me.dat & Me.tim & ".jpg

"