VB CDdrive

[Ronald_stage]

code:

Private Sub Drive1_Change()
If Drive1.Drive = "D:\" and Dir1.Path = "" Then MsgBox "plaats een cd" Else Dir1.Path = Drive1.Drive
End Sub

dit werkt dus niet, kan iemand mij vertellen hoe dit wel werkt?

[Woudloper]

Ronald,

Heb jij al eens rondgekeken op bijvoorbeeld:

http://www.mvps.org/vbnet

Daar staan zulke zaken namelijk allemaal uitgelegd....

[Verwijderd]

Op donderdag 24 januari 2002 11:34 schreef Ronald_stage het volgende:

code:

Private Sub Drive1_Change()
If Drive1.Drive = "D:\" and Dir1.Path = "" Then MsgBox "plaats een cd" Else Dir1.Path = Drive1.Drive
End Sub

dit werkt dus niet, kan iemand mij vertellen hoe dit wel werkt?

Dit lost Windows al voor je op.
Hard kijken naar D:\ drive (als CD-ROM) lijkt me sowieso al zeer fout (en dan druk ik het zacht uit).

Wat je wel zou kunnen doen als je het op deze foute manier wilt oplossen:

code:

  On Error Resume Next
  If Dir1.Path <> "" Then
    MsgBox "Er is een CD geplaatst"
  End If
  If Err Then
    MsgBox "Plaats CD-tje, aub"
  End If

Bovenstaande code zou fout kunnen zijn aangezien ik geen VB bij de hand heb (en ook geen CD-ROM station).

Hoe dan ook dit BLIJFT een foute manier..

[Ronald_stage]

heb het al opgelost

code:

Private Sub Drive1_Change()
On Error GoTo ErrHandler

Dir1.Path = Drive1.Drive

Exit Sub

ErrHandler:

    MsgBox Err.Description

End Sub

HEEL stom dat ik er niet aan had gedacht

[Ronald_stage]

oh, eeh dat hard kijken naar de d:\
was omdat ik het aan het uit proberen was,
anders had ik het gewoon op removeble drives gegooit,
maar het werkt al bij me

ik ben tevree