Проверка файла на рабочем столе в VB - PullRequest
0 голосов
/ 20 октября 2011

Есть ли в любом случае поиск файла (ярлыка файла) на рабочем столе в VB?Я пытался: если My.Computer.FileSystem.FileExists ("Desktop \ MYFILE.lnk") ничего не возвращает

Если My.Computer.FileSystem.FileExists ("Desktop \ MYFILE.exe") не возвращаетчто-нибудь

Если My.Computer.FileSystem.FileExists (Environment.SpecialFolder.Desktop \ MYFILE.lnk ") ничего не возвращает

Если My.Computer.FileSystem.FileExists (Environment.SpecialFolder.Desktop\ MYFILE.exe ") ничего не возвращает

Я тоже искал это в Google, кажется, ничего не могу найти.

Спасибо.

Ответы [ 4 ]

1 голос
/ 03 февраля 2015
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
1 голос
/ 20 октября 2011
System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MYFILE.exe")
0 голосов
/ 20 октября 2011

Вы пробовали это так:

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

По сути, я просто хочу знать, проверяете ли вы правильность конкатенации строк и используете \ при необходимости.

0 голосов
/ 20 октября 2011

Если ваш вопрос только что набран неправильно, и простите мои навыки 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
}
...