"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i melding
news:9gfcan$88l$1@news.cybercity.dk...
> Jeg ville gætte på at API-funktionen SearchPath bruges til at søge efter
> filer med...
> Men er der nogen der ved hvordan man bruger den?
> (F.eks.: Hvad skal man angive i lpFilePart?)
Ikke den, men SearchTreeForFile som så langt jeg kan se kaller opp SearchPath
Denne API'en kan brukes til å søke etter en enkelt fil (wildcards kan ikke brukes).
Putt en commandbutton og en label på en form og prøv denne;
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal
InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Command1_Click()
Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile("c:\", "vb6.exe", tempStr)
'Parameter 1 = "startpunkt" for søk, 2 = fil å søke etter, 3 = path til funnet fil
If Ret <> 0 Then '1=funnet, 0=ikke funnet
Label1.Caption = Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
Else
Label1.Caption = "Fant ikke filen!!!"
End If
End Sub
--
Snutten@work