Как удалить все файлы с рабочего стола, кроме ярлыков .Ink? (Windows 10) - PullRequest
Новая
       15

Как удалить все файлы с рабочего стола, кроме ярлыков .Ink? (Windows 10)

0 голосов
/ 11 февраля 2020

Я пытаюсь удалить все файлы из папки рабочего стола, но как я могу это сделать, не удаляя ярлыки? Я хочу отфильтровать их. Также я хочу работать на нескольких p c с разными именами пользователей. Я попытался использовать% USERPROFILE%, но это выдает ошибку. 

 Sub wipe()

    Try

        For Each d In Directory.GetDirectories("c:\users\test\Desktop")
            Directory.Delete(d, True)
        Next


        For Each f In Directory.GetFiles("c:\users\test\Desktop")
            File.Delete(f)
        Next
    Catch ex As Exception
    End Try

    Dim MyFiles() As String = IO.Directory.GetFiles("c:\users\test\Desktop")
    Dim MyDirectories() As String = IO.Directory.GetDirectories("c:\users\test\Desktop")

End Sub
...