Taşınabilir excel dosyası için sürücü tarama sonrası aranan dosyaya erişim makrosu

[excelbug]

Elimdeki bir excel dosyasında arkadaşımın arşiv çalışması yeralıyor. İçeriğindeki linkler ise alt klasöründeki muhtelif uzantılı dosyalara işaretli, cd ortamında yayımlanmasında malumunuz sürücü harfleri değişkendir. Bunun için 2 çözüm yolundan hangisi pratik olur veya yardımlarınızı alabilirmiyim ?

1- Hyperlink ekleme alanında root sadece bulunduğu klasör olabilir mi ?
her ortamda sabit > ( excel dosyası ve diğer dosyalar tek root altında )

2- ASIL İHTİYACIM makro bilgim yeterli olmadığı için sürücüleri tarayan bir makro, Örneğin;
c'nin altında ARCHIVE klasörünü soracak, yok ise d'nin altında soracak,
(e sürücüsünde olduğunu varsayalım), e sürücüsü altında bulduğunda linke ait tıklanan dosyaya erişecek..

Bu kadar uzun yazının umarım çözümü çok zor değildir.
Saygılarımla,

 

[halit3]

var olan sürücü isimlerini sıralayan kod

Sub Sürücü_İsimleri()
i = 1
Dim ds, dc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set dc = ds.Drives
For Each sürücü In dc
s = s & vbCrLf & sürücü
Dim ms, a
Set ms = CreateObject("Scripting.FileSystemObject")
a = ms.FolderExists(Mid(sürücü, 1, 1) & ":\ARCHIVE")
If a = True Then
MsgBox sürücü & "\ARCHIVE Bu isimde bir klasör var"
'Worksheets(ActiveSheet.Name).Cells(i, 2).Value = Mid(sürücü, 1, 1)
'"buraya getirmik istediğin linki yazacaksın"
Exit Sub
Else
MsgBox sürücü & "\ARCHIVE Bu isimde bir klasör yok"
'Worksheets(ActiveSheet.Name).Cells(i, 1).Value = Mid(sürücü, 1, 1)
End If
i = i + 1
Next
End Sub