[МишаИнженер]

Есть ли способ при создании ярлыка указать опцию чтобы папка (на которую ссылается ярлык) при двойном клике на ярлыке открывалась в новом окне?
Код (VBA) для создания ярлыка использую вот такой:

Код:

[Выделить все]

   Set WshURLShortcut = CreateObject("WScript.Shell").CreateShortcut(sПутьЯрлыка)
   WshURLShortcut.TargetPath = sНазвФайла
   WshURLShortcut.Save

Что надо добавить в этот код чтобы ярлык открывал папку в новом окне, а не в текущем окне проводника когда мы видим этот ярлык перед нажатием? Это надо для того чтобы не терялась и не закрывалась папка в которой мы видим ярлык.

[Boxa]

свойству TargetPath нужно присвоить что то типа %windir%\explorer.exe "C:\путь до директории"

[МишаИнженер]

Сообщение от 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, """", "")" удалить кавычки не удается. Поэтому как решить эту проблему пока не понятно.

[Boxa]

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)