كود لإنشاء ملف نصي في مجلد النظام system

[فتحي محمد]

الأساتذة الفضلاء دام عزكم واسعد الله صباحكم بكل الخير 

السلام عليكم ورحمة الله

اريد من حضراتكم كود يقوم بإنشاء ملف نصي وليكن fs txt مكتوب داخله"fs" ويكون مساره داخل مجلد الويندوز علي الجهاز ولحضراتكم مني جزيل الشكر

[أ / محمد صالح]

عليكم السلام ورحمة الله وبركاته
يمكنك تجربة  كود VBA يقوم بإنشاء ملف نصي باسم **fs.txt** يحتوي على النص `"fs"`، ويتم حفظه داخل مجلد **C:\Windows** على الجهاز:

 

Sub CreateTextFile()
    Dim FilePath As String
    Dim FileNumber As Integer
    
    ' تحديد مسار الملف داخل مجلد Windows
    FilePath = "C:\Windows\fs.txt"
    
    ' الحصول على رقم ملف متاح
    FileNumber = FreeFile
    
    ' إنشاء وكتابة البيانات إلى الملف
    Open FilePath For Output As FileNumber
    Print #FileNumber, "fs"
    Close FileNumber
    
    MsgBox "تم إنشاء الملف بنجاح في: " & FilePath, vbInformation, "نجاح"
End Sub

```

⚠️ **ملاحظة:** تحتاج إلى تشغيل الكود بصلاحيات **المسؤول (Administrator)** لأن الكتابة داخل مجلد **Windows** تتطلب أذونات خاصة. يمكنك تشغيل VBA من داخل **Excel أو Word** ولكن تأكد من أن لديك الصلاحيات الكافية.

بالتوفيق
 

[فتحي محمد]

السلام عليكم  اخي الفاضل جزاك الله خير وجعله الله زخرا لك في الاخرة

غير ان هناك مشكلة عند تشغيل الكود موجودة في الصور المرفق

[فتحي محمد]

[عبدالله بشير عبدالله]

السلام عليكم

انتبه الى الملاحظة التي كتبها معلمنا الاستاذ محمد صالح

في 21‏/4‏/2025 at 10:49, أ / محمد صالح said:

ملاحظة:** تحتاج إلى تشغيل الكود بصلاحيات **المسؤول (Administrator)** لأن الكتابة داخل مجلد **Windows** تتطلب أذونات خاصة

مجلد C:\Windows هو مجلد نظام، ولا يُسمح للبرامج العادية (بدون صلاحيات مسؤول) بإنشاء أو تعديل ملفات بداخله

وهذا هو سبب  ظهور الخطأ

 بالماوس الايمن على تطبيق اكسل وليس ملف الاكسل قم باختيار تشغيل كمسؤول  وسيعمل الكود وينشئ الملف وقد فمت بالتجرية وكانت تاجحة بالتمام والكمال

 نحياني

[محمدسلام]

شكرا علي التوضيح جزاكم الله خيرا