比如:……
vars("todo") = true
Do
If FindFileData.cFileName.Equals(".") OrElse FindFileData.cFileName.Equals("..") Then Continue Do
If searchOption = io.SearchOption.AllDirectories AndAlso ((FindFileData.dwFileAttributes And io.FileAttributes.Directory) = io.FileAttributes.Directory) Then
EnumerateFiles(io.Path.Combine(path, FindFileData.cFileName))
Else
_list.add(io.Path.Combine(path, FindFileData.cFileName))
End If
Application.Doevents
Loop While FindNextFile(hFind, FindFileData) AndAlso vars("todo")
if vars("todo")= false then return
停止按钮代码
vars("todo") = false
不过这样为了响应消息循环,搜索会更慢