Soru Klasöre göre sürücü harfi ( Çoklu )

[k0081]

Merhaba arkadaşlar;

aşağıda vermiş olduğum kod ile usb harddisk veya Sabit harddisk deki bölümlerde klasöre göre olan sürücünün harfini alıyorum..

Yapmak istediğim;

Klasor = "\NC"
Klasor2 = "\DWG"
Klasor3 = "\DXF"

bu üç klasöre göre arama yapıp; ( Her bir klasör ayrı hdd bölümündedir...)

KlasorDrV = Klasor_sürücü
KlasorDrV2 = Klasor_sürücü
KlasorDrV3 = Klasor_sürücü

Şeklinde sürücü harflerini değişkenlere aldırmak.. -- » Bunun için kodu ne şekilde değiştirmeliyim ?

Sub DrivePart()
Klasor = "\NC" 'bu klasör olan sürücüyü bul
Dim ds
i = 0
Set ds = CreateObject("Scripting.FileSystemObject")
For Each Klasor_sürücü In ds.Drives
i = i + 1
If i > 1 Then
If ds.GetDrive(Klasor_sürücü).DriveType = 2 Or ds.GetDrive(Klasor_sürücü).DriveType = 1 Then
If Val(Mid(ds.GetDrive(Klasor_sürücü).AvailableSpace, 1, 1)) > 0 Then
If ds.FolderExists(Klasor_sürücü & Klasor) = True Then
'MsgBox Klasor_sürücü
KlasorDrV = Klasor_sürücü
Exit For
End If
End If
End If
End If
Next
End Sub

Yardımcı arkadaşa şimdiden Teşekkürler.