8
Suche über Textbox nach Inhalten eines Ordners und gebe die Datei mit dem Suchbergriff in eine Listbox zurück
hallo zusammen,
ich habe mir eine textbox, eine listbox und einen commandbutton in einer userform gebaut.
ich möchte nach dateien in einem ordner suchen, die dateien im ordner die einen teil des suchbegriffes enthalten sollen dann in einer listbox zurück gegeben werden.
habe bisher folgenden code:
damit zeigt es mir leider alle dateien die im ordner enhalten an, wie kann ich aber die suche einbinden?
kann mir jemand helfen?
danke
ich habe mir eine textbox, eine listbox und einen commandbutton in einer userform gebaut.
ich möchte nach dateien in einem ordner suchen, die dateien im ordner die einen teil des suchbegriffes enthalten sollen dann in einer listbox zurück gegeben werden.
habe bisher folgenden code:
Private Sub kundenodatenanzeigen_Click()
Dim objFSO As Object
Dim objFile As Object
Const objFolder = "Y:\Scanner\Kundenordner"
Set objFSO = CreateObject("Scripting.Filesystemobject")
listboxkundenordner.Clear
For Each objFile In objFSO.GetFolder(objFolder).Files
listboxkundenordner.AddItem objFile.Path
Next
Set objFSO = Nothing
end subdamit zeigt es mir leider alle dateien die im ordner enhalten an, wie kann ich aber die suche einbinden?
kann mir jemand helfen?
danke
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 149749
Url: https://administrator.de/contentid/149749
Printed on: April 19, 2024 at 17:04 o'clock
8 Comments
Latest comment
Hallo -Artefakt-!
Vielleicht etwas in der Art:
Gruß Dieter
Vielleicht etwas in der Art:
Option Compare Text
If objFso.GetExtensionName(objFile.Name) Like "txt" Then 'Dateierweitung
....
End If
'oder
If objFso.GetBaseName(objFile.Name) Like "*xy*" Then 'Dateinamen (siehe Like-Operator)
....
End IfGruß Dieter
hmm...also mit diesem code funktionierts leider nicht...
jemand noch eine idee?
jemand noch eine idee?
Hallo -Artefakt-!
Könnte daran gelegen haben, dass ich anstatt objFile nur File geschrieben hatte (oben geändert)?
Gruß Dieter
Könnte daran gelegen haben, dass ich anstatt objFile nur File geschrieben hatte (oben geändert)?
Gruß Dieter
danke für deine hilfe aber ich brings nicht hin....
Hallo -Artefakt-!
Dann poste doch mal ein Such-Beispiel
Gruß Dieter
Dann poste doch mal ein Such-Beispiel
Gruß Dieter
hier ist mein code
Private Sub dateisuchen_Click()
Dim objFSO As Object
Dim objFile As Object
Const objFolder = "U:\Kundenordner abgerechnete Anlagen"
TextBox = Suche.TextBoxSuche.Text
If objFSO.GetBaseName(objFile.Name) Like "Textbox" Then
Set objFSO = CreateObject("Scripting.Filesystemobject")
Suche.ListBoxSuche.Clear
For Each objFile In objFSO.GetFolder(objFolder).Files
Suche.ListBoxSuche.AddItem objFile.Path
Next
Set objFSO = Nothing
End If
End Sub
Hallo -Artefakt-!
Sollte so funktionieren:
Gruß Dieter
Sollte so funktionieren:
Option Compare Text 'Wichtig, damit NICHT zwischen Klein/Großschreibung unterschieden wird
Private Sub dateisuchen_Click()
Dim objFSO As Object
Dim objFile As Object
Const objFolder = "U:\Kundenordner abgerechnete Anlagen"
Set objFSO = CreateObject("Scripting.Filesystemobject")
Suche.ListBoxSuche.Clear
For Each objFile In objFSO.GetFolder(objFolder).Files
If objFSO.GetBaseName(objFile.Name) Like "*" & Suche.TextBoxSuche.Text & "*" Then
Suche.ListBoxSuche.AddItem objFile.Path
End If
Next
Set objFSO = Nothing
End SubGruß Dieter
funktioniert super! danke
gruß
gruß
