CD sürücü Hangi Diröctör'de ?

[Orion1]

Mrb.
Makro ile Bir adet kur dosyası oluşturdum.Kaynak dosyaları CD Sürücüye Kopyaladım.CD Sürücüden"D:\", "C:\" Hard diske Kopyalıyorum.
Benim CD sürücüm D:\ de olduğu için dosyaları kopyalama için kaynak olarak D:\ 'yi gösterdim.
Fakat Başka PC'lerde CD sürücüler Başka directörlerde olabilir.
Kur dosyamı çalıştırdığımda önce PC'nin CD sürücüsünün Hangi Directör'de Olduğuna Baksın.O directör'ü Bir değişkene atasın.Sonra Kaynak olarak O Directör'ü göstersin istiyorum.
Bu Çalışmaya Ã?rnek Bir VB Kodu Verebilirmisiniz?
Teşekkür ederim.
İyi çalışmalar.

 

[Haluk]

Aşağıdaki linke bakın ...

http://www.excel.web.tr/viewtopic.php?t=4883

ALT FILE_SYSTEM_OBJECT - Bölüm 2 / E

 

[Orion1]

Aşağıdaki linke bakın ...

http://www.excel.web.tr/viewtopic.php?t=4883

ALT FILE_SYSTEM_OBJECT - Bölüm 2 / E

----------------------------------------------------------------------

Mrb.
Ã?ncelikle verdiğiniz yanıt için teşekkür ederim.
Verdiğiniz Link'ten aldığım Kodlar Aşağıdaki gibidir.
Ancak Bu kodlar "F:\" Kök dizinini Araştırıyor."F" Kök Dizini varsa Neye Ait olduğunu Sorguluyor.Eğer "F" Kök Dizini Yoksa Böyle bir Sürücü Yok diye Mesaj veriyor.
Fakat burada şöyle bir durum var. Cd sürücünün Hangi harfte olduğunu bulmak için Set d = ds.GetDrive("F:\") F Harfini değiştirip yerine D den başlayıp Z ye kadar mı yazmamızmı gerekecek?Cd sürücünün F te araştırmasını yapmayıp,direk CD sürücünün hangi kök dizininde olduğunu nasıl bulabiliriz?Teşekkür ederim.
İyi çalışmalar.

---------------------------------------------------------------------------


E)

Sub Sürücü_Hazır_Mı_Göster() 
On Error GoTo hata: 
Dim ds, d, s, t 
Set ds = CreateObject("Scripting.FileSystemObject") 
Set d = ds.GetDrive("F:\") 
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 & "Sürücü Hazır." 
Else 
s = s & vbCrLf & "Sürücü Hazır Değil." 
End If 
MsgBox s 
End 
hata: 
MsgBox "Böyle Bir Sürücü Yok" 

End Sub

 

[Haluk]

Merhaba;

Þöyle bir şey deneyin isterseniz ....

[vb:1:f2db5e0402]Sub CheckDrives()
Dim FSO As Object
Dim Drv As Object
Dim MyMsg1 As String, MyMsg2 As String
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
If Drv.DriveType = 4 Then
MyMsg1 = "CD-Rom »» " & Drv.DriveLetter
MyMsg2 = "Durum »» " & Drv.IsReady
MyMsg = MyMsg1 & vbCrLf & MyMsg2
Else
MyMsg = "CD-ROM bulunamadi...."
End If
Next Drv
MsgBox MyMsg
End Sub
[/vb:1:f2db5e0402]

 

[Orion1]

Merhaba;

Þöyle bir şey deneyin isterseniz ....

[vb:1:28a1ceecd1]Sub CheckDrives()
Dim FSO As Object
Dim Drv As Object
Dim MyMsg1 As String, MyMsg2 As String
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
If Drv.DriveType = 4 Then
MyMsg1 = "CD-Rom »» " & Drv.DriveLetter
MyMsg2 = "Durum »» " & Drv.IsReady
MyMsg = MyMsg1 & vbCrLf & MyMsg2
Else
MyMsg = "CD-ROM bulunamadi...."
End If
Next Drv
MsgBox MyMsg
End Sub
[/vb:1:28a1ceecd1]

----------------------------------------------------------------------

Mrb.
Henüz denemedim,ama sanırım oldu.
Teşekkür ederim.
Engin Bilgi ve tecrübenizden her zaman faydalanmak dileğiyle
Hoşçakalın.
:hey:

 

[Orion1]

Mrb.
Kodları Yazdım.CD Sürücü'süne Göre Kopyalamayı Sağladım.
Ancak 2 Adet sorun 'la karşılaştım.
Birincisi Okuyup-Yazan takılı bir aygıtta kur programı hata veriyor.Çalışmıyor.
İkincisi Cd'den Harddiske Kopyalanan dosyalar Salt okunur şekilde kopyalanıyor.Harddiske kopyalanan bu salt okunur dosyaları nasıl arşiv durumuna getiririm.
Yardımlarınız için şimdiden Teşekkür ederim.
İnşallah Bu Kur Programını yardımlarınız sayesinde sorunsuz çalıştırabileceğim.
İyi Akşamlar.
:hey: