Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim FavPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
Dim FavSize = Aggregate file In New DirectoryInfo(FavPath).GetFiles() _
Into Count()
Console.WriteLine("There are " & FavSize & " files in your Favorites folder.")
End Sub
End Class
|