MacBook'ta Çalışmayan Kod

[baydeniro]

Merhaba Arkadaşlar,
Aşağıdaki kod MacBook bilgisayarda sonuç vermedi. Normalde Windows tabanlı pclerde normal çalışıyor. Mac'lere uygulanması mümkün mü acaba !

#Code:
Sub Sürücü_Seri_Numarası_Göster()
On Error GoTo hata:
Dim ds, d, s, t
Set ds = CreateObject("Scripting.FileSystemObject")
Set d = ds.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 Sub

 

[Korhan Ayhan]

Mac OS işletim sistemlerinde bildiğim kadarıyla "CreateObject" ile başlayan kodlar çalışmıyor. Sanırım Windows özgü nesneler olduğu için Mac OS bu nesneleri oluşturamıyor.

 

[baydeniro]

Mac OS işletim sistemlerinde bildiğim kadarıyla "CreateObject" ile başlayan kodlar çalışmıyor. Sanırım Windows özgü nesneler olduğu için Mac OS bu nesneleri oluşturamıyor.

Bilgilendirme için teşekkür ederim üstadım. Peki bir yolu var mıdır acaba ? formül veya makro ile ?

 

[Korhan Ayhan]

Nette bir araştırın. Bulursanız bizlerle de paylaşırsınız.

 

[baydeniro]

Nette bir araştırın. Bulursanız bizlerle de paylaşırsınız.

teşekkürler üstad, ara ara bakıyorum. Sağlıcakla kalın