كيف اجعل الملف قابل للكتابه اذا كان للقراءة فقط

يمكن ذلك

اولا نقوم بأخذ خواص Attribute هذا الملف ونخزنها في متغير لكي لانغير من خواص الملف ثم بعد ذلك نقوم بجعل الملف من نوع ارشيف ( ليس للقراءةفقط )

ونقوم بتغيير بيانات الملف ( كتابة البيانات )

اخيرا نقوم باعادة خواص الملف من المتغير

انا لااذكر بالضبط الاجراء الذي يقوم بذلك لكن اعتقدان اسمه SetAttrFile()

لهذا سيصبح الكود بالشكل

Private Sub Command1_Click()
dim A as integer
Open "c:\file.txt" For Append As #1
A = GetAttrFile(#1);
SetAttrFile(#1 , vbArchive )
Print #1, "welcome to my prog"
SetAttrFile(#1 , A )
Close #1
End Sub

اخبرني اذا حلت المشكلة

أشكرك على ردودك الجميلة أخي J Programmer

لان الكود السابق فيه خطأ

قمت ببرمجة الكود الصحيح وهو كالتالي

  Dim Attr As Integer
  SetAttr FileName, vbArchive
  Open FileName For Output As #1
    Attr = GetAttr(FileName)
    Print #1, "String"
  Close #1
  SetAttr FileName, Attr

مع ملاحظة انه لا يمكنك استخدام الاجراء SetAttr عندما يكون الملف مفتوحا

لذلك قم لاغلاق الملف قبل ان تستخدم هذا الاجراء