'Projeye 1 modul ekleyin,formunuza 1 adet buton ve 1 adet drivelistbox ekleyin



'Aşağıdaki kodları module kopyalayın



Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long



'Aşağıdaki kodları forma kopyalayın





Private Sub Command1_Click()

erg& = GetVolumeInformation(Drive1.Drive, VolName$, 127&, VolNumber&, MCM&, FSF&, FSys$, 127&)

If erg& = 0 Then

MsgBox "Surucu boş"

Else

MsgBox "Surucu dolu"

End If

End Sub




Bu benim ilk programım gercektende yeni şeyler bulmak cok zor vereceğiniz repler icin şimdiden teşekkurler.






Kendim Yaptım Link Burda

http://rapidshare.de/files/16384650/...eri_i.exe.html
__________________