DESCOBRIR A LETRA DA UNIDADE DE CD ROM

USUARIO.EXCLUIDOS 05/05/2005 00:46:59
#81655
Salve, salve, todos Vbmaníacos,

Meu soft acesso arquivos no CD Rom, o problema, é que não sei qual letra da unidade do CD Rom do usuário.

Tem como descobrir a letra da unidade automaticamente ?
USUARIO.EXCLUIDOS 05/05/2005 06:43:46
#81660
Nesse codigo... so informar as possiveis letras das unidades de cd-rom e ele retorna os valores...
Function ShowDriveInfo(drvpath) as String
  Dim fso, d, s, t
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(drvpath)
  Select Case d.DriveType
    Case 0: t = "Unknown"
    Case 1: t = "Removable"
    Case 2: t = "Fixed"
    Case 3: t = "Network"
    Case 4: t = "CD-ROM"
    Case 5: t = "RAM Disk"
  End Select
  ShowDriveInfo= d.DriveType
End Function
USUARIO.EXCLUIDOS 29/05/2005 23:17:25
#85831
Valeu Truhillo !
Tópico encerrado , respostas não são mais permitidas
Voltar