| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Можно ли в параметрах ярлыка задать опцию чтобы папка открывалась в новом окне?

Можно ли в параметрах ярлыка задать опцию чтобы папка открывалась в новом окне?

Ответ
Поиск в этой теме
Непрочитано 09.09.2022, 14:44 #1
Можно ли в параметрах ярлыка задать опцию чтобы папка открывалась в новом окне?
МишаИнженер
 
Регистрация: 14.12.2008
Сообщений: 897

Есть ли способ при создании ярлыка указать опцию чтобы папка (на которую ссылается ярлык) при двойном клике на ярлыке открывалась в новом окне?
Код (VBA) для создания ярлыка использую вот такой:
Код:
[Выделить все]
   Set WshURLShortcut = CreateObject("WScript.Shell").CreateShortcut(sПутьЯрлыка)
   WshURLShortcut.TargetPath = sНазвФайла
   WshURLShortcut.Save
Что надо добавить в этот код чтобы ярлык открывал папку в новом окне, а не в текущем окне проводника когда мы видим этот ярлык перед нажатием? Это надо для того чтобы не терялась и не закрывалась папка в которой мы видим ярлык.
Просмотров: 745
 
Непрочитано 10.09.2022, 14:20
1 | #2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,528


свойству TargetPath нужно присвоить что то типа %windir%\explorer.exe "C:\путь до директории"
__________________
_бложиг
Boxa вне форума  
 
Автор темы   Непрочитано 20.09.2022, 07:30
#3
МишаИнженер


 
Регистрация: 14.12.2008
Сообщений: 897


Цитата:
Сообщение от Boxa Посмотреть сообщение
свойству TargetPath нужно присвоить что то типа %windir%\explorer.exe "C:\путь до директории"
Попробовал применить это на практике и ничего не получилось
Сейчас применяю вот такой код:
Код:
[Выделить все]
Public Function СоздатьЯрлыкНаФайл(sНазвФайла As String, sПапкаДляЯрлыка As String, sНазвЯрлыка As String) As Boolean
'Функция создаёт ярлык на папку с фотографиями
Dim WshURLShortcut As Object
Dim sПутьЯрлыка As String
   СоздатьЯрлыкНаФайл = False
'Проверим наличие файла или папки на которую ссылается ярлык
   If Len(Dir(sНазвФайла, vbDirectory)) = 0 Then
      MsgBox "Не найден путь ярлыка: " & sНазвФайла, vbExclamation, gsНазваниеПрограммы
      Exit Function
   End If
'Проверим существование папки в которую надо поместить ярлык
   If Len(Dir(sПапкаДляЯрлыка, vbDirectory)) = 0 Then
      glОтвет = MsgBox("Папка для ярлыка: """ & sПапкаДляЯрлыка & """ не существует. Создать эту папку?", vbYesNo + vbInformation, gsНазваниеПрограммы)
      If glОтвет = vbYes Then
         Call СоздатьПапкуСДопПапками(sПапкаДляЯрлыка)
      Else
         Exit Function
      End If
   End If
   sПутьЯрлыка = sПапкаДляЯрлыка & "\" & sНазвЯрлыка & ".lnk"
'Проверим наличие данного ярлыка в папке
   If Dir(sПутьЯрлыка) <> "" Then
      Set WshURLShortcut = CreateObject("WScript.Shell").CreateShortcut(sПутьЯрлыка)
   End If
   Set WshURLShortcut = CreateObject("WScript.Shell").CreateShortcut(sПутьЯрлыка)
   WshURLShortcut.TargetPath = sНазвФайла
'   WshURLShortcut.TargetPath = Environ("WINDIR") & "\explorer.exe  " & sНазвФайла
'   WshURLShortcut.TargetPath = Replace(WshURLShortcut.TargetPath, """", "")
   WshURLShortcut.Save
   MsgBox "В папке: """ & sПапкаДляЯрлыка & """" & vbLf & "создан ярлык " & vbLf & """" & sНазвЯрлыка & """" & vbLf & "на " & vbLf & """" & sНазвФайла & """", vbInformation, gsНазваниеПрограммы
   СоздатьЯрлыкНаФайл = True
End Function
Когда вручную в свойстве TargetPath удаляешь кавычки, то код начинает работать. Программно с помощью строки кода "WshURLShortcut.TargetPath = Replace(WshURLShortcut.TargetPath, """", "")" удалить кавычки не удается. Поэтому как решить эту проблему пока не понятно.
МишаИнженер вне форума  
 
Непрочитано 20.09.2022, 14:29
#4
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,528


1. https://learn.microsoft.com/ru-ru/of...p/chr-function
2. https://ru.wikipedia.org/wiki/ASCII (https://learn.microsoft.com/ru-ru/of...acter-set-0127)
__________________
_бложиг
Boxa вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Можно ли в параметрах ярлыка задать опцию чтобы папка открывалась в новом окне?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как масштабированием можно сделать чтобы на мониторе отображались реальные размеры. yuriy101 AutoCAD 13 20.02.2017 17:11
Открытие нового dwg файла в новом окне, новым процессом в диспетчере Андрю}{а AutoCAD 22 11.11.2014 16:25
каждый новый чертеж открывается в новом окне автокада. как исправить? GreyeyedPhoenix AutoCAD 32 24.01.2014 20:00
Можно ли настроить создание нового слоя во вьюпорте так, чтобы в остальных он по дефолту не отображался? katyara1207 AutoCAD 4 08.11.2013 21:07
Каждый файл в новом окне Abramov AutoCAD 2 03.10.2007 14:32