Module
Contents
Index 🔎︎

# FreeFile Function

ត្រឡប់​លេខ​ឯកសារ​ដែល​មាន​បន្ទាប់ សម្រាប់​បើក​ឯកសារ​មួយ ។ ប្រើ​អនុគមន៍​នេះ​ដើម្បី​បើក​ឯកសារ​មួយ​ដោយ​ប្រើ​លេខ​ឯកសារ ដែល​មិន​ទាន់​ត្រូវ​បាន​ប្រើ​ដោយ​ឯកសារ​ដែល​បើក​បច្ចុប្បន្ន ។

## វាក្យ​សម្ពន្ធ ៖

    FreeFile

## តម្លៃ​ត្រឡប់ ៖

ចំនួន​គត់

## ប៉ារ៉ាម៉ែត្រ ៖

អនុគមន៍​នេះ​អាច​ត្រូវ​បាន​ប្រើ​ភ្លាមៗ តែ​ពី​មុខ​សេចក្តី​ថ្លែង​ការណ៍ Open ប៉ុណ្ណោះ​ ។ FreeFile ត្រឡប់​លេខ​ឯកសារ​ដែល​មាន​បន្ទាប់ ប៉ុន្តែ​មិន​បម្រុង​ទុក​វា​ទេ ។

## Error codes:

5 ការ​ហៅ​បែបបទ​មិន​ត្រឹមត្រូវ

67 ឯកសារ​ច្រើន​ពេក

## ឧទាហរណ៍ ៖

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        sMsg = ""
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "First line of text"
        Print #iNumber, "Another line of text"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As #iNumber
        While Not eof(#iNumber)
            Line Input #iNumber, sLine
            If sLine <>"" Then
                sMsg = sMsg & sLine & chr(13)
            End If
        Wend
        Close #iNumber
        MsgBox sMsg
    End Sub