Sürücülerin SeriNo'sunu Bulma Sürücülerin SeriNo'sunu Bulma



'Projeye 1 modül ekleyin,formunuza 1 adet buton ekleyin



'Aşağıdaki kodları modüle kopyalayın



Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolume++++++Number 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



Function Get++++++Number(strDrive As String) As Long

Dim ++++++Num As Long

Dim res As Long

Dim Temp1 As String

Dim Temp2 As String

Temp1 = String$(255, Chr$(0))

Temp2 = String$(255, Chr$(0))

res = GetVolumeInformation(strDrive, Temp1, _

Len(Temp1), ++++++Num, 0, 0, Temp2, Len(Temp2))

Get++++++Number = ++++++Num

End Function



Private Sub Command1_Click()



' Aşağıdaki yolu kendiniz belirleyin



Call MsgBox(Get++++++Number("c:\"))

End Sub

tamamı alıntıdır...