进程条问题？

Question

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

Answer 1

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

Answer 2

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

Answer 3

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?

Answer 4

那就用API函数GetFileSize获取文件总长度。Public Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long