انشاء ملف جديد

الابتسامات لاتعمل أو لا تراها أصلاً

الكتابة على ملف :

'هذه الطريقة للكتابة على ملف بحيث تلغي الملف القديم بما فيه
    Filenum = FreeFile
    Open "c:test.TXT" For Output As Filenum
    Print #Filenum, "نكتب على ملف جديد"
    Close #1

'هذه الطريقة للكتابة على ملف بحيث لاتلغي الملف القديم بل تضيف اليه
    Filenum = FreeFile
    Open "c:test.TXT" For Append As Filenum
    Print #Filenum, "نضيف على ملف قديم"
    Close #1

وصلة بريد نشطه

افتح مشروع جديد وضع عليه label

الصق الكود الاتي في القسم العام Genaral

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

الصق هذا الكود تحت الـ label

ضع اي بريد في الـ Label

ثم الصق الكود

ShellExecute hwnd, "open", "mailto:" & Me.Label1.Caption, _
    vbNullString, vbNullString, SW_SHOW

اخوك

بسم الله الرحمن الرحيم

:cool: :rolleyes: :mad:

الحمد لله اليوم عملت جيد امس لم تكن تعلم :P

وبالنسبه لجوابك :

اني لم ارد ان اغير في ملف موجود ولكن اريد ان انشاء ملف ليس موجود اصلا في الهاردسك على السي او غيره txt

او غيره من الملفات التي يتعامل معها الفيجول بيسيك

والف شكر لك اخي العزيز (g)

:cool: :rolleyes: :confused: :eek:

استعمل الكود الاول فهو ينشئ ملف جديد ولو كان هذا الملف موجود سابقا يمسحه ثم ينشأه من جديد .( يكتب عليه بمصطلح الكمبيوتر )