Есть код(не мой)
[vba]Код
Sub Ma()
Const ROOT = "c:\temp\"
Dim x
x = CreateObject("wscript.shell").exec("cmd /c dir /a:d/b/s """ & ROOT & "*" & [A1] & "*""").stdout.readline
If Len(x) = 0 Then Exit Sub
'перекодировка - нужна для русских имен файлов
With CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Open
.Charset = "Windows-1251"
.writetext x
.Position = 0
.Charset = "cp866"
x = .readtext
.Close
End With
'конец перекодировки
ActiveSheet.Hyperlinks.Add [B1], x
End Sub
[/vba]
Как реализовать для сетевого диска F?