How To Retrieve File Listings In Directories

I am wanting to retrieve all the files in some directories. Here is my original code:
Private Function Search(path As String, Recursive As Boolean) As Boolean
Dim dirInfo As New IO.DirectoryInfo(path)
Dim fileObject As FileSystemInfo
If Recursive = True Then
For Each fileObject In dirInfo.GetFileSystemInfos()
[Code] .....

This code works well, yet it returns some directories and I am wanting to only return files. I tried this code:
Private Sub Search(ByVal path As String, ByVal Recursive As Boolean)
if not Directory.Exists(path) then Exit Sub
Dim initDirInfo As New DirectoryInfo(path)
For Each oFileInfo In initDirInfo.GetFiles
[Code] .....

However, I get the following error:
Access to the path 'C:UsersSimonAppDataLocalApplication Data' is denied.

I have added this module to get it working:
Imports System.Security.Principal
Module VistaSecurity
'Declare API
[Code] .....