Question

我有一些代码循环遍历存储在网络驱动器文件夹中的每个文件。我正在循环的文件是位于共享驱动器上各种其他文件夹中的文件的快捷方式。

我的代码正在运行但是有一些快捷方式文件会抛出“缺少的快捷方式”并要求我浏览文件系统。现在我不允许删除文件/快捷方式。有什么原因我可以访问快捷方式指向的位置，以便我可以测试文件是否存在

我试过了：

Dim oFSO as object
Dim Folder as object
Dim Files as object
Dim file as Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Folder = oFSO.GetFolder(thisWorkbook.Path)

For each file in Folders.files
  On Error GoTo fileErr:
  Workbooks.Open file.Path

  On Error GoTo 0
   Msgbox "File is opened"
   GoTo nextFile

fileErr:
  Msgbox Err.Description

nextFile:
Next file

任何帮助表示赞赏

Answer 1

使用如下功能：

Public Sub checkShortCut()
    MsgBox GetTargetPath("<Path>\<filename>.lnk")
    /*Your Code Here*/
End Sub

Function GetTargetPath(ByVal FileName As String)

    Dim Obj As Object
    Dim Shortcut As Object

    Set Obj = CreateObject("WScript.Shell")
    Set Shortcut = Obj.CreateShortcut(FileName)
    GetTargetPath = Shortcut.TargetPath
    Shortcut.Save

End Function

Excel VBA检查快捷方式xls文件是否指向有效文件

1 个答案: