一个快速的VB文件搜索类,用API函数遍历指定路径的文件,引用文件搜索类CScanFiles.cls，搜索到的文件，参数分别返回：路径，文件名，已经搜索的文件数目，文件总大校注意：此处 路径中包含了文件名。自定义函数：更新搜索进度条显示（特别注意：使用前初始化图像框，决定前景色和背景色。），参数说明：lngPercent 百分比，应该= 当前数目/总数目；picProgressBar 图像框，应该是要显示进度的目标控件。注意：DrawMode = vbNotXorPen 这个是必须的，不然文字与进度条效果不能实现！！！此外，AutoRedraw = True 自动刷新，也重要。-A quick file search VB class with the specified path traversal API functions referenced document search category CScanFiles.cls, search files, parameters are returned: path, file name, file number has been searched, documents total colonel Note: here the path contains a file name. Custom Function: Update search progress bar shows (Special Note: Before using the initialization image fr a me to determine the foreground and background colors.), Parameter Descr iption: lngPercent percentage, should the current number/total number =　picProgressBar picture fr a me, should be to display the progress of the target control. Note: DrawMode = vbNotXorPen this is a must, otherwise the text and the progress of the effect can not be achieved! ! ! In addition, AutoRedraw = True automatically refresh, but also important.