Wechseldatenträger u. Laufwerknamen ermitteln

[Volkmar]

Klappt bei mir auch in der neuesten Version.
Übrigens, der Hinweis auf den Kaffeeverbrauch war nicht als meckern aufzufassen. XProfan kann (fast) alles, hält aber nicht gerade die Geschwindigkeitsrekorde. Viel an Tempo wird da nicht mehr zu machen sein. Eventuell 2 Suchroutinen, eine mit und eine ohne Unterverzeichnisse, um diese IF-Klausel zu beschleunigen.
Eine andere Möglichkeit, eben ausprobiert, die Liste nicht fortlaufend aktualisieren.

...
   ElseIf Clicked(Suche&)                   ' wenn "Suche starten" Button ausgewählt, dann...
      If DirExists(GetText$(Eingabe&))      ' wenn Verzeichnis existiert, dann...
         ClearList Liste&                   ' alte Liste löschen
         SendMessage(Liste&, $B,0,0)
         EnableWindow Suche&,0              ' Suche Button deaktivieren
         If GetCheck(MitUV&) = 1            ' wenn Häkchen gesetzt, dann...
            DateiSuche(GetText$(Eingabe&),"ja")  ' Dateien suchen mit Unterverzeichnisse
         Else                               ' wenn Häkchen nicht gesetzt, dann...
            DateiSuche(GetText$(Eingabe&),"")  ' Dateien suchen ohne Unterverzeichnisse
         EndIf
         EnableWindow Suche&,1              ' Suche Button aktivieren
         SendMessage(Liste&, $B,1,0)
         ~InvalidateRect(Liste&,0,1)
       Else                                  ' wenn Verzeichniss nicht existiert, dann...
         MessageBox("Verzeichnis existiert nicht!","Fehler",16)  ' Fehler Anzeige
      EndIf
   EndIf
...

Bringt mir bei C:\Program Files 92 Sekunden im Vergleich zu Deinem Code mit 117 Sekunden. Man könnte das nun noch beschleunigen, wenn die fortlaufende Anzeige der gefundenen Verzeichnisse und Dateien wegfällt, da komme ich dann auf 74 Sekunden. Aber dann fehlt die Rückmeldung, daß das Programm noch arbeitet. Würde ich eher nicht machen. Compiliert wird's dann ohnehin noch schneller.

Gruß Volkmar

[Frabbing]

Funktioniert bei mir jetzt einwandfrei, Jens.

[Hallo1001]

@ Volkmar

Jo, wenn man die Anzeige ausblendet läuft es ein wenig schneller. Die Routine wird bei mir aber eh nur zur reinen Suche verwendet, von daher entfällt die Anzeige hier auch komplett. Fürs Forum macht es sich aber besser wenn man sieht was passiert...

An der Stelle auch noch mal Danke an AHT, für die Korrektur des Codes...

@ Frank

Na da bin ich aber froh... Ich habe es bei mir übrigens auch mal mit Win7 laufen lassen (die alte und die neue Version), bei mir funktionieren beide Versionen.

LG Jens

[Frabbing]

Vielleicht wirklich nur eine dieser Rechte-Schreibgeschichten wegen der Dateiaufzeichnung.