Dim path As String = "Pfad"
        Dim result As System.IO.FileInfo = Nothing
 
        For Each file In New System.IO.DirectoryInfo(path).GetFiles
            If result Is Nothing Then result = file
 
            If file.Length > result.Length Then
                result = file
            End If
        Next
 
        If result IsNot Nothing Then
            Debug.WriteLine(result.FullName)
        End If

        Dim path As String = "Pfad"
        Dim directory As New System.IO.DirectoryInfo(path)
 
        Dim result = From file In directory.GetFiles Order By file.Length _
          Descending
 
        If result.Count > 0 Then
            Debug.WriteLine(result(0).FullName)
        End If