Not
Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olmayabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için, Yardım'da "korumalı alan modu" araması yapın.
Open deyimi tarafından kullanılabilen sonraki dosya numarasını temsil eden bir Tamsayı döndürür.
Söz dizimi
SerbestDosya[(aralıknumarası)]
İsteğe bağlı aralıknumarası bağımsız değişkeni, bir sonraki boş dosya numarasının döndürüleceği aralığı belirten bir Varyanttır. 1 – 255 (dahil) aralığındaki bir dosya numarasını döndürmek için 0 (varsayılan) belirtin. 256 – 511 aralığında bir dosya numarası döndürmek için 1 belirtin.
Açıklamalar
Zaten kullanılmayan bir dosya numarasını sağlamak için FreeFile'ı kullanın.
Örnek
Not
Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, bir sonraki kullanılabilir dosya numarasını döndürmek için FreeFile işlevi kullanılır. Döngü içinde çıktı için beş dosya açılır ve her birine bazı örnek veriler yazılır.
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