الدالة FreeFile

ملاحظة:  نرغب في تزويدك بأحدث محتوى تعليمات لدينا بأسرع ما يمكن وبلغتك الخاصة. وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. كما نهدف إلى أن يكون هذا المحتوى مفيداً لك. هل يمكنك إخبارنا إذا كانت المعلومات مفيدة لك في أسفل هذه الصفحة؟ إليك المقالة بالغة الإنجليزية لسهولة الرجوع إليها.

ملاحظة: يتم تعطيل الداله اسلوب الكائن او الخاصيه هو موضح في هذا الموضوع اذا Microsoft Jet Expression Service قيد التشغيل في وضع الحمايه، الذي يمنع تقييم التعبيرات قد تكون غير امنه. ل# مزيد من المعلومات حول وضع الحمايه، ابحث عن "وضع الحمايه" في "تعليمات".

ترجع هذه الداله عدد صحيح يمثل التالي رقم الملف متوفرا ل# الاستخدام ب# العباره Open .

بناء الجملة

FreeFile [(rangenumber)]

الوسيطه الاختياريه rangenumber هي متغير تحدد النطاق الذي رقم مجاني ل# الملفات التاليه يتم ارجاعها. حدد القيمه صفر (افتراضي) ل# ارجاع رقم ملف في النطاق 1 – 255، ضمنا. حدد 1 ل# ارجاع رقم ملف في النطاق 256-511.

ملاحظات

استخدم FreeFile ل# ادخال رقم ملف ليس قيد الاستخدام مسبقا.

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله FreeFile ل# ارجاع عدد الملفات المتوفره التالي. فتح ملفات الخمسه ل# الاخراج داخل تنفيذ حلقه مستمره، و# تتم كتابه بعض البيانات النموذجيه ل# كل منها.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex
تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×