Wednesday, March 13, 2013

Get the files of the users startup menu

        Dim theFiles As String()
        theFiles = Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.StartMenu), "*", SearchOption.AllDirectories)
        Dim i As Integer
        For i = 0 To (theFiles.Length - 1)
            MsgBox(theFiles(i).ToString())
        Next

No comments:

Post a Comment