điên đầu wá đi thôi

[dullard]

sao mà cái vụ đọc tập tin văn bản má mỗi sách nói một dường thế này, làm sao mà mò hả trời:(

[White_Rose]

Đơn giản và hiệu quả nhất là dùng Scripting.FileSystemObject.

[binhbean]

C1: Đọc bằng Input:
' Khai bao File và so hieu File:
Dim IntShFile As Integer
IntShFile = FreeFile
‘ Khai bao mo file ra de doc:
Open StrTenFile For Input As #IntShFile
‘ Doc du lieu tu file vao:
While not EOF(ShFile)
Input #IntShFile, StrDongDuLieu
WEnd

C2: Dùng đối tượng FileSystem Object
'Khai bao bien doi tuong File: Refrence -> Microsoft Scripting Runtime
Dim TextFile As New Scripting.FileSystemObject
Dim txt As Scripting.TextStream

Set txt = TextFile.OpenTextFile(StrTenFile, ForReading)
StrDongDuLieu = txt.ReadLine
txt.Close

Set TextFile = Nothing

Cách 2 làm hay hơn và có nhiều ưu điểm hơn cách 1 (ví dụ nhwu cách 1 thường đọc không chuẩn khi gặp xâu đầu là số,...)
Nếu có vấn đề gì có thể liên hệ với tôi bằng điện thoại hoặc qua địa chỉ email:
binhbean@yahoo.com