엑세스/ 플로피 디스크（floppy disk）가 준비되고 있는지 아닌지 확인하는 방법(FileSystemObject 오브젝트 )

플로피 디스크（floppy disk）가 준비되고 있는지 아닌지 확인하는 방법

FileSystemObject 오브젝트（object）의 중(속)의 Drive 오브젝트（object）의"IsReady푸로파치" 을(를) 사용하면 ，플로피 디스크（floppy disk）가 준비되고 있는지 아닌지 확인한 것을 할 수 있습니다．DriveType의 IF 기록의 점의 값을 바꾸는 것에 의하고，CD-ROM의 준비를 확인한 것도 가능합니다．

샘플（sample） 절차（procedure）：

 

Public Function IsReadyFD() As Boolean

  Dim Fso As Object
  Dim Drv As Object

  'FileSystemObject 오브젝트（object）를 생성합니다
  Set Fso = CreateObject("Scripting.FileSystemObject")
   'Drives 컬렉션（collection） 안의 각 드라이브（drive）의 정보를 열거합니다
  For Each Drv In Fso.Drives
    With Drv
      '드라이브（drive）가 플로피 디스크（floppy disk）인지
      If .DriveType = 1  Then
         '플로피 디스크（floppy disk）가 준비되고 있는지 아닌지를
        '되돌아가고 값에 설정합니다
        IsReadyFD =  .IsReady
        Exit For
      End If
    End With
  Next Drv

End Function

사용 예:

If IsReadyFD() Then
  MsgBox "처리를 시작합니다！", vbOKOnly + vbInformation
Else
  MsgBox "플로피 디스크（floppy disk）를 삽입하여 주세요！", vbOKOnly + vbExclamation
End If