Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск папок через cmd в сетевом каталоге - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск папок через cmd в сетевом каталоге (Формулы/Formulas)
Поиск папок через cmd в сетевом каталоге
magistor8 Дата: Пятница, 05.10.2018, 14:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Есть код(не мой)

[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?
 
Ответить
СообщениеЕсть код(не мой)

[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?

Автор - magistor8
Дата добавления - 05.10.2018 в 14:48
bmv98rus Дата: Пятница, 05.10.2018, 18:38 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1302
Репутация: 220 ±
Замечаний: 0% ±

Excel 2013/2016
 
Ответить
Сообщениекросс

Автор - bmv98rus
Дата добавления - 05.10.2018 в 18:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск папок через cmd в сетевом каталоге (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!