#How to pin a document to the start menu in windows 10 windows 10
In Windows 10 you need to use PowerShell as the verb method no longer works: DoIt EndIfĮlse, is there another way to pin a shortcut to startmenu (on windows 10)? DoIt Next EndFunc =>UnpinToTaskBand If StringInStr ( $var, "Pin to startmenu" ) Or StringInStr ( $var, "Épingler à l’écran de démarrage" ) Then MsgBox ( 0, "", 1 ) $itemVerb. name, "&", "" ) = "Détacher de la barre des tâches" Then $itemVerb. name, "&", "" ) = "Unpin from Taskbar" Or StringReplace ( $itemVerb. name & " | " ) If StringReplace ( $itemVerb. ParseName ( $strFile ) $colVerbs = $objFolderItem. Namespace ( $strFolder ) $objFolderItem = $objFolder. GetFileName ( $path ) $objFolder = $objShell. GetParentFolderName ( $path ) $strFile = $objFSO. DoIt EndIf Next EndFunc =>PinToTaskBand Func UnpinToTaskBand ( $path ) $objShell = ObjCreate ( "shell.application" ) $objFSO = ObjCreate ( "Scripting.FileSystemObject" ) $strFolder = $objFSO. name, "&", "" ) ConsoleWrite ( $var & " | " ) If $var = "Pin to startmenu" Or $var = "Épingler à l’écran de démarrage" Then MsgBox ( 0, "", 1 ) $itemVerb. Verbs ~ MsgBox(0,"", $itemVerb.name) $var = StringReplace ( $itemVerb.
PinToTaskBand ( $path ) Func PinToTaskBand ( $path ) $objShell = ObjCreate ( "shell.application" ) $objFSO = ObjCreate ( "Scripting.FileSystemObject" ) $strFolder = $objFSO. Expand collapse popup #RequireAdmin $path = & "\vlc.lnk"
0 kommentar(er)
