' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Collections.Generic Namespace E Public Class Program Public Shared Sub Main(args As String()) Dim tmpArray As String() = New String(4) {} tmpArray(0) = "billede1.jpg" tmpArray(1) = "" tmpArray(2) = "billede3.jpg" tmpArray(3) = "billede4.jpg" tmpArray(4) = "" Dim tmpList As List(Of String) = (New List(Of String)(tmpArray)).FindAll(AddressOf StringCheck) For Each s As String In tmpList Console.WriteLine(s) Next End Sub Public Shared Function StringCheck(s As String) As Boolean return Not String.IsNullOrEmpty(s) End Function End Class End Namespace