Søg Function

prøv på www.vbsquare.com -de har stort set alt

har ikke tid til selv at skrive ét sorry.

please .... nu 150 point

ok her kommer noget ( ved ikke om det virker ordenligt :
Declare Function SearchTreeForFile Lib \"IMAGEHLP.DLL\" _
    (ByVal lpRootPath As String, _
    ByVal lpInputName As String, _
    ByVal lpOutputName As String) As Long
   
Public Const MAX_PATH = 260

Public Function FindFile(RootPath As String, _
    FileName As String) As String
   
    Dim lNullPos As Long
    Dim lResult As Long
    Dim sBuffer As String
   
    On Error GoTo FileFind_Error
   
   
    sBuffer = Space(MAX_PATH * 2)
   
   
    lResult = SearchTreeForFile(RootPath, FileName, sBuffer)
       
    If lResult Then
        lNullPos = InStr(sBuffer, vbNullChar)
        If Not lNullPos Then
            sBuffer = Left(sBuffer, lNullPos - 1)
        End If
       
        FindFile = sBuffer
    Else
        FindFile = vbNullString
    End If
   
    Exit Function
   
FileFind_Error:
    FindFile = vbNullString
End Function

for at bruge den skal du kalde functionen findfile, og angive hvilken fil der skal søges efter + hvilket drev :
f.eks. :
MsgBox FindFile(\"c:\\\", \"superfil.tst\")
så kan du bare lave en løkke der indsætter e:\\, f:\\ + hvad dine netværksdrev hedder

:)

Jeg har ingen netværksdrev

Jeg skal bruge det til netparty´s hvor der er ca. 100 på netværket med samme arbejdesgruppe

lige en ting skal det være under vb > du kan jo bare finde filer med prefix *.type under andre comps....

Surt....

Er der nogle mulighed for en ocx/dll skrevet i c++

ok skriver noget nu....

Lukker her !