Mega Code Archive

 

Categories / VB.Net / LINQ

 

Counts how many items are in your Favorites folder

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