Question

用vba为文件夹下的文件建立快捷方式

Answer 1

问：用vba为文件夹下的文件建立快捷方式

答：ID，创建WshShell对象可以运行程序、操作注册表、创建快捷方式、访问系统文件夹、管理环境变量。1：wscript.shell对象具有创建快捷方式的功能，其方法为 createobject('wscript.shell').createshortcut，通过wscript对象创建快捷方式可以指定其提示文字图标、快捷键及存放路径2：CreateShortcut CreateShortcut 方法创建 WshShortcut 对象并将其返回3：SpecialFolders 属性提供 WshSpecialFolders 对象以便访问 Windows 的 shell 文件夹，例如桌面文件夹、开始菜单文件夹和个人文档文件夹。4：Favorites收藏夹,收藏夹地址可以从注册表中获取，也可以利用wscript对象获取，本例采用wscropt.shell对象的specialfolde

答：创建一个快捷方式 With .CreateShortCut(.SpecialFolders('Desktop') & '\' & ActiveWorkbook.Name & '.lnk') .TargetPath = ThisWorkbook.FullName '指定快捷方式的目标文件 .Windowstyle = 1 '窗口状态/运行方式 .Hotkey = 'CTRL SHIFT F' '打开该文件的快捷键（快捷方式存放在桌面是有效的） .IconloCation = 'explorer.exe,0' .Description = '这是一个快捷方式' '提示 .WorkingDirectory = Creat

问：该程序能够批量建立某文件夹下的文件的快捷方式或为该文件下的新增文件建立快捷方式，可以吗

问：然后为新增文件的快捷方式批量生成索引

答：稍等

问：在源文件夹内每新增一个或多个文件，就自动建立一个或多个快捷方式并保存在另外一个文件夹下，新增加的一个或多个快捷方式文件名自动反馈到索引目录中形成链接，在目录中点击各自的文件名能够打开源文件，即通过索引目录链接快捷方式文件打开源文件。这么说您清楚了吗？谢谢！

答：清楚了。谢谢帅哥

问：美女你好！能解决问题吗？有话请讲。谢谢！

答：integer不会编程的财务不是老司机关注一个通过VBA建立某文件快捷方式的例子 （备注） 原创2011-09-01 08:56:50不会编程的财务不是老司机 码龄12年关注Sub CreatShortCut() '设定引用项目 Windows Script Host Object Model Dim myWsh As IWshRuntimeLibrary.WshShell Dim myShtCut As IWshRuntimeLibrary.WshShortcut Dim myPath As String Dim row As Integer Set myWsh = CreateObject("Wscript.Shell") For row = 2 To 500