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

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