Programlama2000 Software & Internet Security

 

Option Explicit

Private Declare Function GetDriveType Lib “kernel32″ Alias _

                                    “GetDriveTypeA” (ByVal nDrive As String) As Long

Private Const DRIVE_REMOVABLE = 2

Private Const DRIVE_FIXED = 3

Private Const DRIVE_REMOTE = 4

Private Const DRIVE_CDROM = 5

Private Const DRIVE_RAMDISK = 6

 

Private Sub Form_Click()

         Dim i, drv, d$

         For i = 0 To 25

                           d$ = Chr$(i + 65) & “:”

                           drv = GetDriveType(d$)

                           Select Case drv

                                 Case DRIVE_REMOVABLE

                                                   Print d$ & “     Disket Sürücü”

                                 Case DRIVE_FIXED

                                                   Print d$ & “     Sabit Disk”

                                 Case DRIVE_REMOTE

                                                   Print d$ & “     Ağ Sürücüsü”

                                 Case DRIVE_CDROM

                                                   Print d$ & “     CD_ROM Sürücü”

                                 Case DRIVE_RAMDISK

                                                   Print d$ & “     Ram Disk”

                           End Select

         Next i

End Sub