طريقة التعامل مع النصوص

وعليكم السلام

Private Sub Command1_Click()
Open App.Path & "\m.txt" For Append As #1
Print #1, Text1.Text
Close
End Sub

إستبدال كلمة output بــ Append فقط

والمثال المرفق يوضح الفكرة

ملاحظة

m.txt ملف نصي ضمن مجلد المشروع

text1.text أداة التكست التي تقوم بإضافة الجملة إلى الملف النصي

.. تحياتي

____.rar

ياسلام عليك يامبدع

دائما مبدع اخوي محمد الله يجزاك خير

عندي طلب ثاني (انت كريم حنا نستاهل B) )

كيف انشئ مجلد في مجلد المشروع ؟

وعند تحميل الفورم يتاكد اذا كان الفورم موجود و اذا كان غير موجود ينشئه

الف شكر اخي المبدع محمد

لقيت كود

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
	nLength As Long
	lpSecurityDescriptor As Long
	bInheritHandle As Long
End Type

Private Sub Command1_Click()
	   Dim Security As SECURITY_ATTRIBUTES
	'Create a directory
	Ret& = CreateDirectory("C:\Directory", Security)
	'If CreateDirectory returns 0, the function has failed
	If Ret& = 0 Then MsgBox "Error : Couldn't create directory !", vbCritical + vbOKOnly
End Sub

وش رايك اغير

  Ret& = CreateDirectory("C:\Directory", Security)

الى

  Ret& = CreateDirectory(App.Path  ,Security)

كيف اسميه MyProjects

هذا انشئ مجلد , كيف اتاكد انه موجود؟

هذا الكود سيتأكد من عدم وجود المجلد New في مسار المشروع ثم يقوم بإنشاءه باستخدام الدالة MkDir

If Dir("New", vbDirectory) = "" Then MkDir "New"

مرحبا أخي السديم

ولا هانو جميع الأخوة

مرفق لك مثال به مطلوبك أخوي

ملاحظة زائده :: لو أردت أن تنشئ مجلد باسم متغير أنته تحدده كل ماعليك هو أن تدرج أداة تكست ولنفرض أن مسماها Text1

وفي كود إنشاء المجلد نستبدل ("MyProjects") يتم إستبدالها بـ Text1

لا يتم كتابة Text1 مكان MyProjects بل مكان ("MyProjects") يعني القوسين والكوتيشن تحذف .. تحياتي

_____________________.rar

اشكركم اخواني المبرمج احمد ومحمد على اطلالتكما

جزاكما الله الف خير

هذا هو المطلوب