使用VB6查询更快的目录步行:缓存和Ram问题?

时间:2008-09-26 17:53:10

标签: memory recursion vb6

下面是一个相当简单的函数,它计算机器上有多少文件。调用“C:\”,运行大约需要5秒钟。除非我暂时不运行或首先运行ram-clearing程序,否则需要60秒或更长时间。我不会认为它可能是缓存,因为我每次都在进行新的扫描(即启动程序的新内容,因为它只是这次扫描),但它可能与内存分配有关?关于如何快速进行快速运行的任何想法,或者为什么不能完成?其他程序(例如SpaceMonger)设法获得10秒内的文件总数,即使我清除我的内存或在运行之间等待很长时间。所以,肯定有一种方法可以做到这一点,但不一定是在VB中。

Private Function countFiles(Name As String) As Long
    On Error GoTo ErrorHandler
    DoEvents
    Const CurMthd = "countFiles"
          Dim retval As Long
13        Dim FindData As win.WIN32_FIND_DATA
14        Dim SearchPath As String
15        Dim FileName As String
17        Dim SearchHandle As Long
          If Right(Name, 1) <> "\" Then Name = Name & "\"
19        SearchPath = Name & "*.*"
20        SearchHandle = win.FindFirstFile(SearchPath, FindData)
          Do
              DoEvents
'             g_Cancel = True
              If g_Cancel Then
                countFiles = retval
                Exit Function
            End If
22            If SearchHandle = win.INVALID_HANDLE_VALUE Or SearchHandle =     ERROR_NO_MORE_FILES Then Exit Do
23            FileName = dsMain.RetainedStrFromPtrA(VarPtr(FindData.cFileName(0)))
24            If AscW(FileName) <> 46 Then
                    If (FindData.dwFileAttributes And win.FILE_ATTRIBUTE_DIRECTORY)     Then
                        retval = retval + countFiles(Name & FileName)
                    Else
                        retval = retval + 1
                    End If
28            End If
29        Loop Until win.FindNextFile(SearchHandle, FindData) = 0
    win.FindClose SearchHandle
    countFiles = retval
    Exit Function
ErrorHandler:
    Debug.Print "Oops: " & Erl & ":" & Err.Description
    Resume Next
End Function

1 个答案:

答案 0 :(得分:1)

操作系统本身缓存从磁盘读取的数据。这完全在您的程序之外,您实际上无法控制它。因此,当您运行“ram clearing”程序时,它会清除这些缓存。这就是为什么那些“ram clearing”程序通常完全没用 - 正如你所看到的,通过清空缓存会使你的程序运行得更慢。