Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Suche über Textbox nach Inhalten eines Ordners und gebe die Datei mit dem Suchbergriff in eine Listbox zurück

Frage Entwicklung VB for Applications

Mitglied: Artefakt15

Artefakt15 (Level 1) - Jetzt verbinden

26.08.2010 um 08:10 Uhr, 3212 Aufrufe, 8 Kommentare

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:

01.
Private Sub kundenodatenanzeigen_Click() 
02.
Dim objFSO As Object 
03.
Dim objFile As Object 
04.
Const objFolder = "Y:\Scanner\Kundenordner" 
05.
 
06.
Set objFSO = CreateObject("Scripting.Filesystemobject") 
07.
listboxkundenordner.Clear 
08.
For Each objFile In objFSO.GetFolder(objFolder).Files 
09.
    listboxkundenordner.AddItem objFile.Path 
10.
Next 
11.
Set objFSO = Nothing 
12.
end sub 
13.
 
damit zeigt es mir leider alle dateien die im ordner enhalten an, wie kann ich aber die suche einbinden?
kann mir jemand helfen?
danke
Mitglied: 76109
26.08.2010 um 10:16 Uhr
Hallo -Artefakt-!

Vielleicht etwas in der Art:
01.
Option Compare Text 
02.
 
03.
If objFso.GetExtensionName(objFile.Name) Like "txt" Then 'Dateierweitung 
04.
    .... 
05.
End If 
06.
 
07.
'oder 
08.
 
09.
If objFso.GetBaseName(objFile.Name) Like "*xy*" Then  'Dateinamen (siehe Like-Operator) 
10.
    .... 
11.
End If
Gruß Dieter
Bitte warten ..
Mitglied: Artefakt15
26.08.2010 um 13:53 Uhr
hmm...also mit diesem code funktionierts leider nicht...

jemand noch eine idee?
Bitte warten ..
Mitglied: 76109
26.08.2010 um 14:04 Uhr
Hallo -Artefakt-!

Könnte daran gelegen haben, dass ich anstatt objFile nur File geschrieben hatte (oben geändert)?

Gruß Dieter
Bitte warten ..
Mitglied: Artefakt15
26.08.2010 um 14:53 Uhr
danke für deine hilfe aber ich brings nicht hin....
Bitte warten ..
Mitglied: 76109
26.08.2010 um 15:04 Uhr
Hallo -Artefakt-!

Dann poste doch mal ein Such-Beispiel

Gruß Dieter
Bitte warten ..
Mitglied: Artefakt15
27.08.2010 um 08:41 Uhr
hier ist mein code
01.
Private Sub dateisuchen_Click() 
02.
Dim objFSO As Object 
03.
Dim objFile As Object 
04.
Const objFolder = "U:\Kundenordner abgerechnete Anlagen" 
05.
TextBox = Suche.TextBoxSuche.Text 
06.
If objFSO.GetBaseName(objFile.Name) Like "Textbox" Then 
07.
Set objFSO = CreateObject("Scripting.Filesystemobject") 
08.
Suche.ListBoxSuche.Clear 
09.
For Each objFile In objFSO.GetFolder(objFolder).Files 
10.
    Suche.ListBoxSuche.AddItem objFile.Path 
11.
Next 
12.
Set objFSO = Nothing 
13.
End If 
14.
End Sub 
15.
 
Bitte warten ..
Mitglied: 76109
27.08.2010 um 09:20 Uhr
Hallo -Artefakt-!

Sollte so funktionieren:
01.
Option Compare Text 'Wichtig, damit NICHT zwischen Klein/Großschreibung unterschieden wird 
02.
 
03.
Private Sub dateisuchen_Click() 
04.
    Dim objFSO As Object 
05.
    Dim objFile As Object 
06.
     
07.
    Const objFolder = "U:\Kundenordner abgerechnete Anlagen" 
08.
     
09.
    Set objFSO = CreateObject("Scripting.Filesystemobject") 
10.
     
11.
    Suche.ListBoxSuche.Clear 
12.
    
13.
    For Each objFile In objFSO.GetFolder(objFolder).Files 
14.
        If objFSO.GetBaseName(objFile.Name) Like "*" & Suche.TextBoxSuche.Text & "*" Then 
15.
            Suche.ListBoxSuche.AddItem objFile.Path 
16.
        End If 
17.
    Next 
18.
     
19.
    Set objFSO = Nothing 
20.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: Artefakt15
30.08.2010 um 15:44 Uhr
funktioniert super! danke

gruß
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Inhalt einer Textbox in eine .txt Datei schreiben
gelöst Frage von Just4fun1990VB for Applications4 Kommentare

Hallo Administrator.de User, ich habe jetzt schon sehr lange gesucht und finde leider nichts. Hier allerdings habe ich gute ...

Visual Studio
Inhalt einer Textbox mit einem Button kopieren?
gelöst Frage von noah1400Visual Studio2 Kommentare

Hey weiß vielleicht jemand wie man den inhalt einer Textbox koppiert ohne rechtsklick kopieren sondern indem man einfach auf ...

Microsoft Office
VBA Excel Problem mit UserForm, ListBox und TextBox
gelöst Frage von abuelitoMicrosoft Office12 Kommentare

Hallo ll, folgendes habe ich erstellt: 1. Ich habe eine Tabelle1 erstellt mit 60 Spalten 2. Zu dieser Tabelle1 ...

Batch & Shell
Aus dem Inhalt einer Datei (CSV) Dateien suchen und umbenennen
gelöst Frage von IT-WurzelBatch & Shell2 Kommentare

Hallo liebe Community, für mein Problem benötige ich von Euch Hilfe und wäre für einen Lösungsansatz sehr dankbar. Ich ...

Neue Wissensbeiträge
Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 StundeTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 StundeSicherheit4 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 StundenSicherheit3 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Sicherheit

Meltdown und Spectre: Die machen uns alle was vor

Information von Frank vor 2 StundenSicherheit10 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Heiß diskutierte Inhalte
Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1027 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen19 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...