Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ja, aber ...
Autor: Loki
Datum: 28.11.01 09:10
Bei den Verweisen, habe ich eigentlich nur die Standardverweise drinnen: Visual Basic for Applications Visual Basic runtime object and procedures Visual Basic objects and procedures OLE Automation ich hab ein paar Lirarys installiert, aber habs gerade auf einem Rechner ausprobiert, wo nix drauf ist als VB und volgender Code funktioniert einwandfrei! Private Sub Form_Load() retval = IsCdDvdDriveReady("d") End Sub Public Function IsCdDvdDriveReady(DriveLetter As String) Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(DriveLetter) If d.DriveType = 4 Then IsCdDvdDriveReady = d.IsReady MsgBox ("Laufwerk ist ein CD/DVD-Rom und ist bereit") Else IsCdDvdDriveReady = False MsgBox ("Laufwerk ist kein CD/DVD-Rom oder es ist keine Disk im Laufwerk!") End If End Function mfg Loki

CD-Rom IsReady	52	Loki	26.11.01 17:04
Re: CD-Rom IsReady	386	Dieter	26.11.01 18:47
Re: CD-Rom IsReady	38	Loki	27.11.01 08:04
Re: CD-Rom IsReady	31	Micke	27.11.01 19:14
Re: CD-Rom IsReady	31	Loki	28.11.01 08:23
ja, aber ...	21	Micke	28.11.01 08:43
Re: ja, aber ...	45	Loki	28.11.01 09:10
aha, vielen Dank	26	Micke	17.12.01 00:31

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