Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3187 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Windows Tools
Suche Datei Inhaltssuche in Remoteumgebung (1)

Frage von mexx zum Thema Windows Tools ...

Windows XP
gelöst Suche Win XP Home Premium ISO Datei (7)

Frage von Stefan007 zum Thema Windows XP ...

VB for Applications
gelöst Jede Datei eines Ordners zu aktueller Arbeitsmappe in Excel hinzufügen (2)

Frage von Bacchida zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...