Version 365,
Ich möchte von einen vorgegeben Pfad in diesem Ordner und allen Unterordner eine Datei suchen und diese kopieren.
Wie mache ich dies?
Gruß Hajo
Private Declare PtrSafe Function SearchTreeForFile Lib "imagehlp.dll" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH As Long = 260
Private Sub Test()
Dim strTemp As String * MAX_PATH
Dim lngReturn As Long
lngReturn = SearchTreeForFile("E:\Firmen andere Personen\BMS\Christian Lipp\Teile_Suchen\ _
Version 01.04\", "EXCEL.EXE", strTemp)
If lngReturn = 0 Then
MsgBox "File not found!"
Else
MsgBox "Located file at: " & Left$(strTemp, InStr(1, strTemp, vbNullChar) - 1)
End If
End Sub
er findet keine Dateien?