کمک در مورد ذخیر داده

[asgharc++]

سلام یه سوال دارم ممنون میشم که کمکم کنید تا ساعت 10امشب کدشو میخوام
قطعه کدی که با commandialog امکان ذخیره و بازیابی روی داده باشد

[asgharc++]

تو رو خدا کمکم کنید کدی میخوام که با commandialog امکان ذخیره و بازیابی روی یک فایل txt داشته باشد

[mthreat.info]

ای وای پیر شدیم رفت یه مدت برای خودمون غولی بودیم :بامزه: حالا برای نوشتن یه کد ساده باید برم کتاب هامو ورق بزنم :لبخند:



Private Sub Command1_Click()
Dim strtext As String

CommonDialog1.Filter = "*.txt|*.txt"
CommonDialog1.ShowSave
strtext = Text1.Text

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, strtext
Close
End If

End Sub