Sign in with Microsoft
New to Microsoft? Create an account.

הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינה זמינה אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול, דבר המונע הערכה של ביטויים לא בטוחים שעלולים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש את ' מצב ארגז חול ' בעזרה.

החזרת מספר שלם המייצג את ה מספר קובץ הבא הזמין לשימוש על-ידי המשפט Open .

תחביר

FreeFile[(rangenumber)]

הארגומנט האופציונלי rangenumber הוא Variant המציין את הטווח שממנו יוחזר מספר הקובץ הפנוי הבא. ציין 0 (ברירת מחדל) כדי להחזיר מספר קובץ בטווח 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

זקוק לעזרה נוספת?

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Microsoft Office Insider

האם מידע זה היה שימושי?

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלכם?

תודה על המשוב!

×