كيف فتح ملف فايل

عليكم السلام

Private Sub Command1_Click()
CommonDialog1.ShowOpen
s = CommonDialog1.FileName
FileCopy s, "d:\ww.txt"
End Sub

طبعا الـ"d:\ww.txt" هو الملف الذي سينشأ استبدله بالاسم والامتداد الذي تريد

لمجرد المعلومية

showopen للفتح

showsave للحفظ

showcolor لاستعراض الالوان

showfont لاستعراض الخطوط في الجهاز