الغلق

يا جماعة لية محدش معبرني حد يرد عليا طيب

حبيبي الكود بسيط جدا .

لفتح الملف بالطريقة التالية

open "c:\me.txt" for append as #1

print #1, "Hi Habibi"

Close #1

هذا الكود لفتح الملف وطباعه نص ثم اغلاقة

تحياتي لك

مشكور جدا اخي

وهذا الكود يقوم بفتح النودباد من مسار الكومند دايلوج ويقوم بحفظه بعد التعديل عليه

قم بوضع زر تحكم

قم بروضع أداة command dialog وقم بتسميتها cd

ضع الكود التالي في الفورم

Sub SAVE()
Dim A As String
   On Error Resume Next
        A = ccc.FileName
If Trim(Text1.Text) = "" Then
    MsgBox "مربع النص فارغ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "حفظ"
  Text1.SetFocus
  Exit Sub
  End If
   If A = "" Then
  With cd
.CancelError = True
.Filter = "ملف نصي|*.TXT|"
.DialogTitle = "حفظ"
.ShowSave
.CancelError = True
If .FileName = "" Then Exit Sub
Open .FileName For Output As #1
End With
Print #1, Text1.Text
Close #1
If Err <> 0 Then
Else
Open A For Output As #1
Print #1, Text1.Text
Close #1
If Err <> 0 Then
End If
End If
End If
 End Sub
Private Sub Command1_Click()
   Dim A As String
   If Trim(Text1.Text) = "" Then
       MsgBox "ãÑÈÚ ÇáäÕ ÝÇÑÛ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÍÝÙ"
       Text1.SetFocus
       Exit Sub
   End If
   If A = "" Then
       With cd
           .CancelError = True
           .Filter = "ãáÝ äÕí|*.TXT|"
           .DialogTitle = "ÍÝÙ"
           .CancelError = True
           If .FileName = "" Then
               .ShowSave
               A = ccc.FileName
               Open .FileName For Output As #1
               Print #1, Text1.Text
               Close #1

           Else
               Open .FileName For Output As #1
               Print #1, Text1.Text
               Close #1
               If Err <> 0 Then
               End If
           End If
       End With
   End If
End Sub