Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Suchfunktion
Autor: Zardoz
Datum: 01.12.02 23:14
Hallo Brainstormer, probier' mal Folgendes: 'Füge den Code in den Deklarationsabschnitt einer Form ein. 'Die Form muß folgende Steuerelemente enthalten: 'CommandButton, Label, ListBox, DriveListBox, DirListBox. Option Explicit Private DatTyp As String Private Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Command1_Click() Dim IstTyp As Long, SollTyp As Integer, HD As String, i As Integer Me.MousePointer = vbHourglass Command1.Enabled = False DatTyp = "*.mp3" 'Datei-Typ SollTyp = 3 'Laufwerks-Typ List1.Visible = False List1.Clear For i = 1 To Drive1.ListCount HD = Left(Drive1.List(i - 1), 2) IstTyp = GetDriveType(HD + "\") If IstTyp = SollTyp Then Call Pfade(UCase(HD)) End If Next i List1.Visible = True Label1.Caption = List1.ListCount & " " & Mid(DatTyp, 3) & "-Dateien" Command1.Enabled = True Me.MousePointer = vbDefault End Sub Private Sub Pfade(OrdnerPfad As String) Dim D() As String, i As Integer, DirName As String, Anzahl As Integer OrdnerPfad = OrdnerPfad + "\" With Dir1 .Path = OrdnerPfad DirName = Dir(OrdnerPfad + DatTyp) Do Until DirName = "" List1.AddItem OrdnerPfad + DirName DirName = Dir Loop DoEvents Anzahl = .ListCount ReDim D(Anzahl) For i = 1 To Anzahl D(i) = .List(i - 1) If (i Mod 4) = 0 Then Label1.Caption = D(i) End If Next i For i = 1 To Anzahl Call Pfade(D(i)) Next i End With End Sub Private Sub Form_Load() Dir1.Visible = False Drive1.Visible = False End Sub

Suchfunktion	677	brainstormer	23.11.02 10:12
Re: Suchfunktion	432	Dieter	23.11.02 10:43
Re: Suchfunktion	141	Zardoz	01.12.02 23:14

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