Created on Feb 14, 2008, 7:01 PM by 9notes
ใช้ Error handle ตามนี้เลยครับ Type RecType
email As String
End Type On Error Goto Errhandle Open "c:\email.txt" For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #fileNum%, txt$
counter% = counter% + 1
Loop
Seek fileNum%, 1 Redim arrayOfRecs(1 To counter%)
For countRec% =
Read More
|