Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien auflisten
Autor: Dirk
Datum: 16.01.02 18:30
Hi, Seppel, Hier ist meine Lösung: Private Sub Form_Load() Dim FileSystem As Object Dim Drive As Object Dim Folder As Object Dim File As Object Set FileSystem = CreateObject("Scripting.FileSystemObject") Set Folder = FileSystem.GetFolder("D:Video") MyComboBox.Clear For Each File In Folder.Files If LCase(Right(File.Name, 3)) = "avi" Then MyComboBox.AddItem Left(File.Name, Len(File.Name) - 4) End If Next End Sub Es gibt sicherlich elegantere (und v.a. für Anfänger besser zu Verstehende Wege), als die Lösung anhand des Windows FileSystems, aber wenn Du dich ein bißchen eingehender damit Beschäftigst, wirst Du merken, daß es (ungeachtet des unschönen Codes) eine Unmenge von Möglichkeiten bietet, manche Probleme überhaupt zu lösen. Und nun zum Code: Zuerst wird die Objektvariable FileSystem Initialisiert. Sie enthält immer das Gesamte Dateisystem (also auch Netzlaufwerke u.ä.) Das Statement FileSystem.GetFolder ist - außer in unserem Fall - eigentlich nicht so supersinnvoll, aber es Liefert uns Ein Folder - Objekt, daß dem gewünschten Pfad entspricht. mit dem For-Each - Statement durchsuchen wir nun die Files - Auflistung unseres Folder - Objektes (jetzt zeigt sich schon langsam, was man mit diesem FileSystem-Objektmodell alles anfangen kann) nach allen Dateien, bei denen die letzten drei Zeichen in kleinbuchstaben unserem gesuchten Suffix entsprechen und fügen Sie der ComboBox hinzu. Für alle Fälle Sorgt dann das MyComboBox.Clear dafür, daß nicht mehr angezeigt wird, als wirklich vorhanden ist... Für weitere Info's nicht nur über das FileSystem - Objekt, verweise ich auf die MSDN - Library (aber die für Office Developer, nicht die für Visual Studio!), falls Du da irgendwie rankommen kannst. Viel spaß noch mit VB.

Dateien auflisten	99	Seppel	16.01.02 17:53
Re: Dateien auflisten	83	Dirk	16.01.02 18:30
Re: Dateien auflisten	73	Dirk	16.01.02 18:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen