进程条问题？

[fan6699]

我用scriptingobject进行文本文件倒入access数据库，对原先的文本文件不可预知大小，可又想用进程条表示 进行的程度，progressbar1.max该如何设置，

[miniking]

首先确定文本文件的记录数（行数），即为max,然后每读去一行，position+1就行了

[rappercn]

.max=lof(filename)
.value=.value+loc(filename)

[fan6699]

filename类型是integer,但scripting.filesysytemobject中的文件是字符型，如何应用lof(filename)和loc(filename)?
set fso=createobject("scripting.filesystemobject")
set f=fso.getfile(text1.text)
wendan=f.path
set myfile=fso.opentextfile(wendan,forreading,true)
...
就是其中对myfile如何确定progressbar1.max?

[fan6699]

算了，过阵子结掉，不用进程条其实也无所谓。

[飘零风]

那就用API函数GetFileSize获取文件总长度。

Public Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long