ازاى اعمل زر حفظ

Private Sub Command1_Click()
Open app.path & "\file.txt" for output as #1
print #1, "hello"
close #1

هذة الطريقة سهلة لكن..

لاتقوم بحفظ بعض الحروف مثل \tab لذلك استخدم الكود التالي

f = "file.txt"
st = ""
temp = txt.text

open f for binary as #1
  for i=1 to filelength(f) 
    st = mid(1 , temp , 1)
    temp = mid( 2 , temp , len(temp)-1)
    put 1, , st
  next i
  close #1

اتمنى ان تكون قد فهمت الكود