Başlangıç > Kodlar > Visual Basic 6 ile Sistemdeki CD sürücüler

Visual Basic 6 ile Sistemdeki CD sürücüler


Sistemdeki CD Sürücüler

Sayın Hakkı ORAL dostumuz sistemde bulunan CD sürücüleri gösteren bir program göndermiş. Form üzerine bir buton koyup aşağıdaki kodu yapıştırdığınızda bir message box ile sürücüler hakkındaki bilgiye sürücü harfleri ile ulaşabilirsiniz. Teşekkür ederiz.



Const DRIVE_CDROM = 5

Private Declare Function GetLogicalDriveStrings Lib “kernel32” _
Alias “GetLogicalDriveStringsA” (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long

Private Declare Function GetDriveType Lib “kernel32” _
Alias “GetDriveTypeA” (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Dim tmp As Integer
Dim tmpStr As String
Dim Drives As String
Dim CDsCount As Integer
Dim CDsLetters As String
Drives = Space(255)
‘Http://excaliburonline.tripod.com _
‘Visual Basic kod bankası _
‘Görüşleriniz için oralsoft@hotmail.com
ret& = GetLogicalDriveStrings(Len(Drives), Drives)
For tmp = 1 To ret& Step 4
tmpStr = Mid(Drives, tmp, 3)
If GetDriveType(tmpStr) = DRIVE_CDROM Then
CDsCount = CDsCount + 1
CDsLetters = CDsLetters & Left(tmpStr, 1) & ”  ”
End If
Next tmp
If CDsCount Then
MsgBox “Bulunan CD Sürücü Adedi: ” & CDsCount & _
vbNewLine & vbNewLine & “Cdlerin Harfleri: ” & UCase(CDsLetters) ‘ Arkadaş bu satırdaki _
vbnewline na dikkat edin.
Else
MsgBox “Cd Sürücü Yok”
End If
End Sub

Hakkı ORAL oralsoft@hotmail.com


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: