在VB中检查桌面上的文件

Question

有没有办法在VB中搜索桌面上的文件（快捷方式文件）？ 我试过： 如果 My.Computer.FileSystem.FileExists("桌面\MYFILE.lnk") 不返回任何内容

If My.Computer.FileSystem.FileExists("Desktop\MYFILE.exe") 不返回任何内容

If My.Computer.FileSystem.FileExists(Environment.SpecialFolder.Desktop\MYFILE.lnk") 不返回任何内容

If My.Computer.FileSystem.FileExists(Environment.SpecialFolder.Desktop\MYFILE.exe") 不返回任何内容

我也在谷歌上搜索过这个似乎找不到任何东西。

谢谢。

Answer 1

System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MYFILE.exe")

Answer 2

Public Function DesktopShortcutExists(ByVal sShortCutName As String) As Boolean
    Dim sPublicPath As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\" & sShortCutName & ".lnk"
    Dim sUserPath As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\" & sShortCutName & ".lnk"
    Return File.Exists(sPublicPath) = True Or File.Exists(sUserPath) = True
End Function

Answer 3

除非你的问题刚刚输入错误，请原谅我的 VB 技能，但它不应该是：

> If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MYFILE.lnk")
> Then
>     ' Do Something
> End

C# 我会使用：

if(System.IO.File.Exists(string.format("{0}{1}", Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop), @"\MYFILE.lnk")))
{
  // do something with file
}

Answer 4

您是否尝试过这样的操作：

If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\myfile.lnk")

基本上我只是想知道您是否确保字符串连接正确，并在必要时使用 \ 。