CD READ&WRİTER Hagi Kök dizininde(Hangi harfte)?

[Orion1]

CD READ&WRÝTER Hagi Kök dizininde(Hangi harfte)?

Mrb.
PC'ye bağlı Bir CD Read&Writer Aygıtı Varmı?Var ise Kök Dizini Hangi Harf
olduğunu Nasıl anlayabilirim?
Bir kur programı hazırladım.CD-Rom Aygıtının Sürücü harfini bulup O harfe bağlı olan CDrom sürücüden Program kurulabiliyor.Fakat Bir CD Read&Writer Aygıtından kuramıyor.Hata veriyor.Þimdi Çoğu Pc'lerde CD ROM sürücü yerine CD Read&Writer aygıtı takılı olduğundan Benim CDROM sürücüden çalışan kur programım CDRead&Writer aygıtı bağlı olan bir sürücüden kurulamayacak.
Bu konuda yardımlarınızı bekliyorum.
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Haluk]

Merhaba;

Bu tip kodlar sanıyorum CD-Rom'un Reader veya Reader+Writer olup olmadığını ayırt edemiyor.

Þu anda bende her 2 çeşitten var.

Þöyle bir deneme yaptım.

1) Kodla bütün sürücüleri kontrol edip, hazır olduklarını belirlediği anda sürücüdeki medyanın içinde belli bir dosyanın olup olmadığını kontrol ederek, yerleştirdiğim CD' nin hangi 2 sürücüde olduğunu bulabiliyorum.

2) Bunun için CD' nin kök dizininde TestCd.txt diye bir dosya yerleştiriyoruz.

3) Aşağıdaki gibi bir kodla da, CD' nin bulunduğu sürücüyü tesbit ediyoruz.

[vb:1:e0c2d6f848]Sub CheckDrives()
Dim FSO As Object
Dim Drv As Object
Dim MyMsg As String, MyFile As String
MyFile = "TestCd.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
If Drv.DriveType = 4 And Drv.IsReady = True Then
If Not Dir(Drv.DriveLetter & ":\" & MyFile) = Empty Then
MyMsg = "CD-Rom »» " & Drv.DriveLetter
MsgBox MyMsg
End If
End If
Next Drv
End Sub
[/vb:1:e0c2d6f848]

 

[Orion1]

Mrb.
Sn.Raider
Teşekkür ederim.
İyi çalışmalar.
:hey: