帮忙看一下 findnextfile 函数哪里有错
麻烦看一下下面这个函数,函数功能是用来删除fpath下面所有文件名包括fname字符的文件,用到api文件查找函数 findfirstfile findnextfile,程序第一次运行到Do While FindNextFile(fItem, lpFile) <> 0这句都没有错,得二次循环的时候就出现严重错误,自动退出vb,错误提示“vb6.0.exe出现错误.....”
Public Sub KillCUTFile(Fpath, fName)
Dim lpFile As WIN32_FIND_DATA
Dim fItem As Long
Dim Fdir As String
Dim strfName() As String
Fdir = Fpath
If Right(Fdir, 1) <> "\" Then Fdir = Fdir & "\"
fItem = FindFirstFile(Fdir & fName, lpFile)
If fItem <> INVALID_HANDLE_VALUE Then
ReDim strfName(1)
strfName(0) = Left(lpFile.cFileName, InStr(lpFile.cFileName, vbNullChar) - 1)
Do While FindNextFile(fItem, lpFile) <> 0
ReDim Preserve strfName(UBound(strfName) + 1)
strfName(UBound(strfName) - 1) = Left(lpFile.cFileName, InStr(lpFile.cFileName, vbNullChar) - 1)
Loop
End If
FindClose fItem
End Sub