Datei suchen und auflisten
René
habe mir ein Tool gebastelt mit dem ich Dateien mit einem bestimmten Textinhalt im Name suchen kann.
Leider gibt es dabei aber ein kleines Problem. Wenn zum Beispiel nach dem Textfragment "3" gesucht wird und eine andere Datei den Text "30" enthält werden beide Datein gefunden und aufgelistet. Wie könnte man das geschickt verhindern?
Habt ihr eine Idee?
MfG René
Private Sub CommandButton2_Click()
Dim strDatei As String, lngZ As Long
Const VERZEICHNIS As String = "Y:\Diagnosen\"
If Dir(VERZEICHNIS, vbDirectory) = "" Then
MsgBox VERZEICHNIS & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
With ActiveSheet
.Columns(5).ClearContents
strDatei = Dir(VERZEICHNIS & "*" & Cells(5, 3) & "*.xls", vbNormal) ' in dieser Zelle steht zum _
Beispiel 3)
If Dir(VERZEICHNIS & "*" & Cells(5, 3) & "*.xls", vbNormal) = "" Then
MsgBox ("Für diesen Patient liegt keine Epikrise vor!")
End If
Do While strDatei ""
lngZ = lngZ + 2
.Hyperlinks.Add Anchor:=.Cells(lngZ, 5), _
Address:=VERZEICHNIS & strDatei, SubAddress:="", _
TextToDisplay:=strDatei
strDatei = Dir
Loop
End With
End Sub
Anzeige