Private Sub Command1_Click()
Dim remainderQ As Integer
Dim fileI As Integer
Dim StrImei As String, StrSn As String
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Do While Dir("c:\nn\imei" & fileI & ".txt") = ""
fileI = fileI + 1
'++++++++++++++++++++++++++++++
DoEvents '建议加上这一关键字,否则若不存在要站的任何文件,则死循环
'++++++++++++++++++++++++++++++
Loop
Set fso = CreateObject("scripting.filesystemobject")
Set fil = fso.GetFile("c:\nn\imei" & fileI & ".txt")
Set ts = fil.OpenAsTextStream(ForReading)
'++++++++++++++++++++++++++++++
MsgBox ts.AtEndOfStream '这句为真,所以……
'++++++++++++++++++++++++++++++
Text1.Text = Left$(ts.ReadLine, 10)
StrImei = Mid$(ts.ReadLine, 11)
您说的没错,分马上就给,顺便问一下一个简单问题,如下:
Dim remainderQ As Integer
Dim fileI As Integer
Dim StrImei As String, StrSn As String
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Do While Dir("c:\nn\imei" & fileI & ".txt") = ""
fileI = fileI + 1
Loop
Set fso = CreateObject("scripting.filesystemobject")
Set fil = fso.GetFile("c:\nn\imei" & fileI & ".txt")
Set ts = fil.OpenAsTextStream(ForReading)
由于 Macintosh 不支持通配符,使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如,下列语句返回当前文件夹中第一个TEXT文件的名称:
Dir("SomePath", MacID("TEXT"))
为选中文件夹中所有文件,指定一空串:
Dir("")
在 Microsoft Windows 中,如果在Dir函数中使用MacID函数,将产生错误。
任何大于256的attribute值都被认为是MacID 函数的值。
在第一次调用 Dir 函数时,必须指定 pathname,否则会产生错误。如果也指定了文件属性,那么就必须包括 pathname。
Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名,再一次调用 Dir,且不要使用参数。如果已没有合乎条件的文件,则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串,并要再次调用 Dir 时,就必须指定 pathname,否则会产生错误。不必访问到所有匹配当前 pathname 的文件名,就可以改变到一个新的 pathname 上。但是,不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。