Online Reference

Home

Input / Output Function

FreeFile Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Integer แสดงหมายเลขไฟล์ต่อไปที่มีให้คำสั่ง Open ใช้งาน

ไวยากรณ์

FreeFile[(rangenumber)]

อากิวเมนต์ rangenumber เป็นประเภทข้อมูล Variant ที่ระบุช่วงที่ให้ส่งออกหมายเลขไฟล์ที่ว่าง ระบุเป็น 0 (ค่าเริ่มต้น) ให้ส่งออกหมายเลขไฟล์ในช่วง 1-255 ระบุเป็น 1 ให้ส่งออกหมายเลขไฟล์ในช่วง 256-511

ลักษณะการประยุกต์

ฟังก์ชัน FreeFile เป็นการส่งค่าหมายเลขไฟล์ที่ยังไม่ได้ใช้งาน

ดูเพิ่มเติม

Open Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน FreeFile ให้ส่งออกหมายเลขไฟล์ต่อไปที่ใช้ได้ต่อไป

Dim MyIndex, FileNumber

' วนรอบ 5 ครั้ง
For MyIndex = 1 To 5

  ' เรียกหมายเลขไฟล์ที่ยังไม่ได้ใช้.
  FileNumber = FreeFile
  ' สร้างชื่อไฟล์
  Open "TEST" & MyIndex For Output As #FileNumber
  ' ข้อความแสดงผล
  Write #FileNumber, "This is a sample."
  ' เปิดไฟล์
Next MyIndex

Close #FileNumber