Aşagıdaki kodları yeni acacagınız bir formun icine kopyalayın. Daha sonra formunuza bir tane label ekleyin adı LABEL1 olsun ve bir tanede buton ekleyin adı Command1 olsun aşağıdaki kod calışacaktır.

Kod:
Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _ String, ByVal nVolumeNameSize As Integer, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength _ As Long, lpFileSystemFlags As Long, ByVal _ lpFileSystemNameBuffer As String, ByVal _ nFileSystemNameSize As Long) As Long Private Sub Command1_Click() Label1 = Trim(Str(Abs(SeriNoAl("C:\")))) End Sub Function SeriNoAl(strDrive As String) As Long Dim SerialNum 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), SerialNum, 0, 0, Temp2, Len(Temp2)) SeriNoAl = SerialNum End Function

__________________