مساعدة في Open / Save

السلام عليكم و رحمة الله

ماذا تقصد بـ open و save

فتح ملف ام فتح جدول ام ....

يا اخوي في كود لحفظ الملف النصي و كود لفتحة وهي :

Function LoadTxt(FileName As String, TextBox As Control)

Open FileName For Input As #1

TextBox = Input$(LOF(1), 1)

Close #1

End Function

Function SaveTxt(FileName As String, TextBox As Control)

Open FileName For Append As #1

Print #1, TextBox

Close #1

End Function

اي مساعدة انا حاضر ....

Mody_Alb

:) :) :) :) :) :) :)

أظن انك تريد اظهار نافذة الحفظ و الفتح الخاصة بالنظام

اذا كان ذلك ما تريد فعليك استعمال الأداة Microsoft Common Dialog

أعتقد انه يريد ان يعرف بعض المعلومات عن فتح وحفظ الملفات

;) ;) :rolleyes:

السلام عليكم شباب

ما قصدتة هو لما تعمل form وتضع butten في الفورم بغيت عمل كود لحدث الزر الفتح والحفظ

يسلمو جميعا

تحياتي

السلام عليكم ورحمة الله وبركاته

استخدم الاداة CommonDialog واستخدم الكود

CommonDialog.ShowOpen
If Len (CommonDialog.FileName) Then
'OpenCode
End If

للفتح

والكود

CommonDialog.ShowSave
If Len (CommonDialog.FileName) Then
'SaveCode
End If

للحفظ

مع بعض التعديلات البسيطة