je voudrais rechercher dans un dossier une facture
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 Commandbutton1_Click() Dim repertoire As String, fichier As String repertoire = "e:\aaaaa" fichier = "essai1.txt" ' <<<<<======== ici le nom de TON fichier à rechercher MsgBox trouve(repertoire, fichier) End Sub Private Function trouve(R As String, F As String) As String Dim T As String, resu As Long T = String(MAX_PATH, 0) resu = SearchTreeForFile(R, F, T) If resu <> 0 Then trouve = Left$(T, InStr(1, T, Chr$(0)) - 1): Exit Function End If End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question