قرار دادن تاریخ و ساعت سیستم به جای نام فایل

[ehsanocx]

سلام دوستان
چطوری می تونم تاریخ و ساعت سیستم به جای نام فایل قرار بدم؟
یعنی موقع ذخیره کردن فایلی توی قسمت نام فایل تاریخ و ساعت سیستم قرار بگیره؟
ممنون میشم اگر راهنمایی کنید.

[M.T.P]

سلام

برای تغییر عنوان می تونید از مثال زیر کمک بگیرید:


Name "C:\Data.txt" As _
"C:\" & Format$(Now, "YYYY-MM-DD HH-MM") & ".txt"

یا اینکه مثلا برای ساختن یه همچین فایلی:


Dim intFile As Integer
Dim strFile As String

strFile = "C:\" & Format$(Now, "YYYY-MM-DD HH-MM") & ".txt"

intFile = FreeFile()
Open strFile For Output As intFile

Close intFile

[ehsanocx]

86504

می خوام توی قسمت File Name خودش اتوماتیک تاریخ و ساعت رو بنویسه و من فقط دکمه Save رو بزنم تا ذخیره بشه. باید چیکار کنم؟

[SlowCode]

CommonDialog1.FileName = Format$(Now, "YYYY-MM-DD HH-MM")
CommonDialog1.ShowOpen

[just4froum]

ببین دوست عزیز چون برای تاریخ از / و برای ساعت از : استفاده میشه شما چنین کاری رو نمی تونید بکنید چون کلا شما نمی توانید از این ها به عنوان اسم فولدر استفاده کنید مگر این که این ها رو با چیز دیگری تغییر بدهید . مثلا :

Private Sub Command1_Click()
Dim s As String
cd.Filter = "Text|*.txt"
s = CStr(Now)
s = Replace(s, "/", "-")
s = Replace(s, ":", " ")
cd.FileName = s
cd.ShowSave
End Sub

[M.T.P]

کد ذخیره سازی رو جایی که علامت گذاشتم بنویسید.
در ضمن آدرسی که کاربر انتخاب می کنه تو متغیر strFileName هست.


Dim strFileName As String

strFileName = Format$(Now, "YYYY-MM-DD HH-MM")

With CommonDialog1
.DefaultExt = "bak"
.Filter = "SQL Database backup file (*.bak) |*.bak|"
.FileName = strFileName
.ShowSave

If .FileName <> strFileName And .FileName <> vbNullString Then
strFileName = .FileName
'==> your code
End If
End With

[ehsanocx]

مرسی دوستان درست شد ممنون