'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
__________________
Surucu İcinin Boş-Dolu Olduğunu Kontrol Etme
Programlama0 Mesaj
●28 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Surucu İcinin Boş-Dolu Olduğunu Kontrol Etme