DriveListBox

[pedro rodrigues 4]

Opâ, iae... beleza?!Tenho um DriveListBox no meu form, qdo eu seleciono uma unidade de cd ou diskete e n tem cd ou diskete lah dentro da um erro... como eu posso verificar se tem cd ou diskete lah pra n dar esse erro?]vlw...

[luiz humberto 0]

Faça referênicia a Microsoft Scripting Runtime

 

Dim FSO As New FileSystemObjectDim Disqute As DriveSet Disqute = FSO.GetDrive("A:\")If Not Disqute.IsReady ThenMsgBox "Insera o Disquete"End IfSet FSO = Nothing

[pedro rodrigues 4]

mas como eu faria isso com DriveListBox???

[Luizgrs 0]

Adaptando fica assim:

Dim fso As New FileSystemObjectDim drv As DriveSet drv = fso.GetDrive(Left(Drive1.Drive, 2))If Not drv.IsReady Then    MsgBox "O Drive não está pronto"Else    'há disquete/cd(...) no driveEnd If