Fungsi FreeFile

Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.

Mengembalikan bilangan bulat yang menunjukkan nomor file berikutnya yang tersedia untuk digunakan oleh pernyataan buka .

Sintaks

Freefile[(rangenumber)]

Argumen rangenumber opsional adalah varian yang menentukan rentang tempat nomor file gratis berikutnya akan dikembalikan. Tentukan 0 (default) untuk mengembalikan nomor file dalam rentang 1 – 255, inklusif. Tentukan 1 untuk mengembalikan nomor file dalam rentang 256 – 511.

Keterangan

Gunakan freefile untuk memasok nomor file yang belum digunakan.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi freefile untuk mengembalikan nomor file berikutnya yang tersedia. Lima file dibuka untuk output di dalam pengulangan, dan beberapa data sampel ditulis ke masing-masing.

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

Perlu bantuan lainnya?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×