Sürücü Seri Numarasını Gösterme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Excel dosyalarınızın kontrollü açılmasını sağlamak gibi durumlarda bu tür kodlar yol gösterici olacaktır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Sürücü_Seri_Numarasını_Gösterme()
On Error GoTo hata:
Dim ED, d, s, t
Set ED = CreateObject("Scripting.FileSystemObject")
Set d = ED.GetDrive("C:")
Select Case d.DriveType
Case 0: t = "Bilinmiyor"
Case 1: t = "Çıkarılabilir"
Case 2: t = "HardDisk"
Case 3: t = "Ağ"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Sürücü " & d.DriveLetter & ": " & t
If d.IsReady Then
s = s & vbCrLf & d.SerialNumber
MsgBox s
Else
s = s & vbCrLf & "Sürücü Hazır Değil."
MsgBox s
End If
End
hata:
MsgBox "Böyle Bir Sürücü Yok"
End SubAçıklama
Kodu çalıştırdığınızda, aşağıdaki gibi bir görüntü alacaksınız:Excel dosyalarınızın kontrollü açılmasını sağlamak gibi durumlarda bu tür kodlar yol gösterici olacaktır.
Faydalanılması temennisiyle
