كيف نحفظ ملف بامتداد txt

cmnDlg.Filter = "Text|*.txt"
cmnDlg.Flags = FileOpenConstants.cdlOFNHideReadOnly
cmnDlg.FileName = ""
cmnDlg.ShowSave


If cmnDlg.FileName <> "" Then
    Open cmnDlg.FileName For Output As #1
    Print #1, Text1.Text
    Close #1
End If

شكرا اخي _Voodoo_ لسرعة الرد ... ما تقصر والله ...

بس يا اخي انت لم تضع كود فتح الملف ...

انا جربت الكود هدا وما نفع .. :( ... يا ريت ادا ما عليك امر تقول لي وين الخلل ...

ومشكور مره ثانيه اخي واتمنى لك التوفيق من قلبي ...

cmnDlg.Filter = "Text|*.txt"

cmnDlg.Flags = FileOpenConstants.cdlOFNHideReadOnly

cmnDlg.FileName = ""

cmnDlg.ShowOpen

If cmnDlg.FileName <> "" Then

Open cmnDlg.FileName For Input As #1

Input #1, A

Text1.Text = A

Close

End If

لم اضع كود فتح الملف لانك لم تطلبة

لفتح الملف

cmnDlg.Filter = "Text|*.txt"
cmnDlg.Flags = FileOpenConstants.cdlOFNHideReadOnly
cmnDlg.FileName = ""
cmnDlg.ShowOpen

If cmnDlg.FileName <> "" Then
    Open cmnDlg.FileName For Input As #1
    Text1.Text = Input$(LOF(1), 1)
    Close #1
End If