Open Statement

បើកវិថីទិន្នន័យមួយ ។

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

Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

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

FileName ៖ ឈ្មោះ និងផ្លូវនៃឯកសារ ដែលអ្នកចង់បើក ។ ប្រសិនបើអ្នកព្យាយាមអានឯកសារដែលមិនមាន (សិទ្ធិដំណើរការ = អាន) នោះសារកំហុសនឹងលេចឡើង ។ ប្រសិនបើអ្នកព្យាយាមសរសេរឯកសារដែលមិនមាន (សិទ្ធិដំណើរការ = សរសេរ) នោះឯកសារថ្មីគឺត្រូវបង្កើត ។

Mode ៖ ពាក្យគន្លឹះដែលបញ្ជាក់របៀបឯកសារ ។ តម្លៃត្រឹមត្រូវ ៖ Append (បន្ថែមខាងចុងទៅឯកសារតគ្នា) Binary (ទិន្នន័យអាចត្រូវបានចូលដំណើរការជាបៃដោយប្រើ Get និង Put) Input (បើកប៉ុស្តិ៍ទិន្នន័យសម្រាប់អាន) Output (បើកប៉ុស្ដិ៍ទិន្នន័យសម្រាប់សរសេរ) និង Random (កែសម្រួលឯកសារប្រែប្រួល) ។

IOMode ៖ ពាក្យគន្លឹះដែលកំណត់ប្រភេទចូលដំណើរការ ។ តម្លៃត្រឹមត្រូវ ៖ Read (បានតែអាន), Write (បានតែសរសេរ), Read Write (ទាំងពីរ) ។

Protected ៖ ពាក្យគន្លឹះដែលកំណត់ស្ថានភាពសុវត្ថិភាពនៃឯកសារបន្ទាប់ពីបើក ។ តម្លៃត្រឹមត្រូវ ៖ Shared (ឯកសារអាចត្រូវបានបើកដោយកម្មវិធីផ្សេងទៀត) Lock Read (ឯកសារត្រូវបានការពារទល់នឹងការអាន) Lock Write (ឯកសារត្រូវបានការពារទល់នឹងការសរសេរ) Lock Read Write (បដិសេធការចូលដំណើរការឯកសារ) ។

ចំនួនឯកសារ ៖ កន្សោមចំនួនគត់ណាមួយពី 0 ដល់ 511 ដើម្បីចង្អុលបង្ហាញចំនួននៃវិថីទិន្នន័យដែលទំនេរ ។ បន្ទាប់មកអ្នកអាចហុចពាក្យបញ្ជាតាមរយៈវិថីទិន្នន័យ ដើម្បីចូលដំណើរការឯកសារ ។ លេខឯកសារត្រូវតែកំណត់ដោយអនុគមន៍ FreeFile ភ្លាមៗមុនសេចក្តីថ្លែងការណ៍ Open ។

ប្រវែងសំណុំទិន្នន័យ ៖ សម្រាប់ការចូលដំណើរការឯកសារចៃដន្យ កំណត់ប្រវែងរបស់កំណត់ត្រា ។

អ្នកអាចកែប្រែតែមាតិកានៃឯកសារ ដែលត្រូវបានបើកជាមួយសេចក្តីថ្លែងការណ៍ Open ។ ប្រសិនបើអ្នកព្យាយាមបើកឯកសារមួយដែលបានបើករួចហើយ សារកំហុសមួយនឹងលេចឡើង ។

ឧទាហរណ៍ ៖

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    Print #iNumber, "This is a line of text"

    Print #iNumber, "This is 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

Open Statement

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

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

ឧទាហរណ៍ ៖

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