vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
CD Rom Laufwerk 
Autor: Loki
Datum: 05.02.02 17:29

Hi Leute!

Hab da ein kleines Problem:

Ich prüfe das CD-Rom Laufwerk ob eine Disk mit einer bestimmten Laufwerksstruktur im Laufwerk ist, falls nicht dann werfe ich die CD einfach aus und fordere den User auf die richtige Cd einzulegen.

Das Problem ist nur, nachdem er die CD eingelgt hat, braucht es eine Weile bis der Rechner die CD eingelesen hat. Diese Zeit möchte ich gerne mit einem ProgressBar überbrücken.

Ob das Laufwerk betriebsbereit ist, frage ich mit folgendem Code ab, nur ist da eben das Problem, daß er bei d.IsReady wartet, bis die CD eingelesen ist und mein ProgressBalken natürlich nicht mehr weiterläuft!

Kann ich das irgendwie ungehen?
Oder gibt es eine Möglichkeit, daß er mir einfach ein event schmeißt, wenn die CD eingelesen ist?


Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(DriveLetter)
If d.DriveType = 4 Then
IsCdDvdDriveReady = d.IsReady
Else
IsCdDvdDriveReady = False
MsgBox ("This Drive is no CD/DVD Drive!!!")
End If


danke für eure Zeit!!
lg Loki
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CD Rom Laufwerk63Loki05.02.02 17:29
Re: CD Rom Laufwerk223ModeratorDieter05.02.02 18:30
Re: CD Rom Laufwerk33Loki06.02.02 08:55

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel