vb查找文件模组出错问题那位高手帮忙看看吧

2025-02-22 11:39:12

推荐回答（3个）

回答1：

'这样可以了:

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Function getDirList() As String() 'μ?μ?ó2?ìáD±í￡???±ê0?aê?
Dim tmp As String * 64
GetLogicalDriveStrings Len(tmp), tmp 'μ?μ??ùóDía′??ì·?áD±í

DirList = Split(tmp, Chr(0))
Dim Count As Integer
Count = 1
Dim arr() As String
For i = 0 To UBound(DirList)
Select Case GetDriveType(DirList(i))
Case 2 'Removable
Case 3 'DriveFixed
ReDim Preserve arr(Count) As String
arr(Count) = DirList(i)
Count = Count + 1
Case 4 'Remote
Case 5 'CD-ROM
Case 6 'RAMDisk
Case Else 'Unrecognized
End Select
Next
getDirList = arr
End Function

Public Function sysFileFind(ByVal WhichRootPath As String, ByVal WhichFileName As String) As String
Dim iNull As Integer
Dim lResult As Long
Dim sBuffer As String

On Error GoTo L_FILEFINDERROR
sBuffer = String$(1024, 0)
'×￠êí:2é?ò???t

lResult = SearchTreeForFile(WhichRootPath, WhichFileName, sBuffer)
'×￠êí￡o?ùè????t?òμ?￡???·μ??×?·?′?oóD?μ?????é?3y
'×￠êí:·??ò·μ??ò?????×?·?′?
If lResult Then
iNull = InStr(sBuffer, vbNullChar)
If Not iNull Then
sBuffer = Left$(sBuffer, iNull - 1)
End If
sysFileFind = sBuffer
Else
sysFileFind = ""
End If
Exit Function
L_FILEFINDERROR:
MsgBox "2é?ò???t1y3ì?D??μ?′í?ó￡?", vbInformation, "2é?ò???t′í?ó", sysFileFind = Format(Err.Number) & "-" & Err.Description

End Function

Function allSearch(FileName As String) As String
arr = getDirList() 'μ?μ?ó2?ìáD±í
allSearch = ""
For i = 1 To UBound(arr)
allSearch = sysFileFind(arr(i), FileName)
If Len(allSearch) > 0 Then
Exit For
End If
Next
End Function

回答2：

说一下出错的行，省得看半天

回答3：

您可以下载一个文件，本人早已下载，对英语感兴趣。

最新问答

个子矮的球员打篮球哪个位置最合适？

宝宝才一岁吃什么就吐什么喝水都吐怎么回事

请问这个是什么树？果实是绿色的圆形的,叶子枯萎了，掉在地上的果子变成黑色或灰色

从杨鑫路薀川路到中山西路吴中路怎么坐公交车，最快

梦幻西游55级剧情杀完金琉璃如果选择的是要钱后边怎么做

秦皇岛市北戴河区的商业街在哪

我今年十月份要去日本留学了,不过还是很担心,想知道是不是现在的日本人大多数都是右一分子?

脚扭伤敷了中药粉。一天后换药出现很多小红点发痒持续几天。前晚吃了虾病情加重，痒难忍，现脚上起了水泡

请问北京市丰台区有什么大型军医院

安徽大学怎么样？毕业生出来有前途吗？

vb查找文件 模组出错问题 那位高手帮忙看看吧

vb查找文件模组出错问题那位高手帮忙看看吧