怎样在电脑上创建快捷方式?把要创键快捷的程序直接拉到桌面如何制作快捷方式?’建立快捷方式的函数:’ByVallnkLinkFileAsString,_[快捷方式文件,如“C:\DocumentsandSettings\AllUsers\桌面\Notepad.lnk”(“.lnk”可以省略)]’ByVallnkTargetPathAsString,_[快捷方式目
怎样在电脑上创建快捷方式?
把要创键快捷的程序 直接拉到桌面
如何制作快捷方式?
‘建立快捷方式的函数:’ByVal lnkLinkFile As String, _ [快捷方式文件,如“C:\Documents and Settings\All Users\桌面\Notepad.lnk”(“.lnk”可以省略)]’ByVal lnkTargetPath As String, _ [快捷方式目标]’Optional ByVal lnkWorkingDirectory As String = “”, _ [起始位置]’Optional ByVal lnkHotkey As String = “”, _ [快捷键]’Optional ByVal lnkWindowStyle As Integer = 1, _ [运行方式]’Optional ByVal lnkIconLocation As String = “”, _ [图标]’Optional ByVal lnkDescription As String = “”, _ [备注]’Optional ByVal lnkOverWrite As Boolean = True [是否覆盖已有文件]) As Long [函数返回值即错误Err值,为0则正常]Function CreateShellLink(ByVal lnkLinkFile As String, _ByVal lnkTargetPath As String, _Optional ByVal lnkWorkingDirectory As String = “”, _Optional ByVal lnkHotkey As String = “”, _Optional ByVal lnkWindowStyle As Integer = 1, _Optional ByVal lnkIconLocation As String = “”, _Optional ByVal lnkDescription As String = “”, _Optional ByVal lnkOverWrite As Boolean = True) As LongOn Error Resume NextDim WshShell As Object, oShellLink As ObjectIf LCase(Right(lnkLinkFile, 4)) “.lnk” Then lnkLinkFile = lnkLinkFile & “.lnk”If lnkOverWrite Then If Dir(lnkLinkFile) “” Then Kill lnkLinkFileSet WshShell = CreateObject(“WScript.Shell”)Set oShellLink = WshShell.CreateShortcut(lnkLinkFile)If lnkTargetPath “” Then oShellLink.TargetPath = lnkTargetPathIf lnkWorkingDirectory “” Then oShellLink.WorkingDirectory = lnkWorkingDirectoryIf lnkHotkey “” Then oShellLink.Hotkey = lnkHotkeyoShellLink.WindowStyle = lnkWindowStyleIf lnkDescription “” Then oShellLink.Description = lnkDescriptionIf lnkIconLocation “” Then oShellLink.IconLocation = lnkIconLocationoShellLink.SaveCreateShellLink = ErrEnd Function
创业项目群,学习操作 18个小项目,添加 微信:niuben22 备注:小项目!
如若转载,请注明出处:https://www.whowearswhat.cn/37345.html