'VB창 띄워서 Command 버튼 하나 만들고 아래 소스부분을 카피한후 테스트 한번 해보세요.
'참고로 이 소스를 실행하기 위해서는 프로젝트 - 참조 에서 Microsoft Scripting Runtime이
참조되어야 하나 이 참조되는 scrrun.dll 파일이 일부 악성코드 프로그램에서 상습적으로
지워지는 파일인지라 경우에 따라선 없을 수도 있습니다. 만약 system32에 scrrun.dll 파일이 없을 경우 주위분들에게 카피받으신 후 레지스터리 수기등록 [시작-실행에서 regsvr32 파일의 실행경로\파일이름] 하셔야하고 scrrun.dll파일을 구하기 어려우시다면
메일이나 쪽지 보내주세요..
Private Sub Command1_Click()
On Error Resume Next '드라이브타입을 체크시 없는 드라이브(B 드라이브 등)에서 통과하기 위함.
Dim SysObject As New FileSystemObject 'Microsoft Scripting Runtime 참조해 주세요
Dim driveSystem '드라이브 시스템 체크 변수
Dim f_s_drive As Drive '드라이브 체크 변수
Dim DriveName As String
Set SysObject = CreateObject("Scripting.FileSystemObject")
For i = 65 To 90 'A ~ Z 까지
Set f_s_drive = SysObject.GetDrive(Chr(i))
driveSystem = f_s_drive.DriveType '드라이브 타입을 구함
If driveSystem = 4 Then ' 드라이브 형식이 CD 이면...
DriveName = Chr(i)
Exit For
End If
Next
MsgBox "CD ROM은 " & Chr(i) & " 드라이브임"
End Sub
'참고 - DriveType
Unknown 0 드라이브 형식을 결정할 수 없음
Removable 1 드라이브에 휴대용 미디어가 있음(플로피디스크등)
Fixed 2 드라이브에 고정된(휴대용이 아닌) 미디어가 있습니다. 휴대용 하드 드라이브 및 모든 하드 드라이브
Remote 3 네트워크 드라이브. 네트워크에서 공유되는 드라이브.
CDROM 4 CD-ROM 드라이브. 읽기 전용과 읽기/쓰기 CD-ROM 드라이브를 구별하지 않음.
RAMDisk 5 디스크 드라이브처럼 작동되는 로컬 컴퓨터의 Random Access Memory(RAM) 드라이브.