IF SSearchPath not Found next
04.07.2019 11:57:28
Manuela
Ich brauche da einen Gedanken Anstoß.
Ich durchsuche eine TXT Datei nach einem Wort das ich dann in der Exceltabelle suche. Der Pfad der TXT Datei kann auf 5 unterschiedlichen Orten liegen.
Wie kann ich hier eine If schleife einbauen um an mehreren Verzeichnisse nach der gewünschten Datei zu suchen ?
Code:
Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
On Error GoTo Fehler
Application.ScreenUpdating = False
'Beginende Zeile
AnzFound = 14
'Wort nach dem gesucht werden soll
sWord = "Failed"
sSearchPath = "S:\protocol\test\failed\" & [E9] & "_" & [B9] & "\ERROR_" & [E9] & "_" & [B9] & "_" & [J6] & "_PT.txt"
sPath = "S:\protocol\test\failed\" & [E9] & "_" & [B9] & "\"
FileName = Dir(sSearchPath)
If FileName "" Then
.
..
. und so weiter
Gruß
Manuela