Long path/file names problem

[PG]

I am reading a directory using FileInfo Class. Have an exception
"PathTooLongException" error and would like to catch the name of the file and
its path that is throwing the exception. Thanks a lot for any help.
Public Function DirectorySize(ByVal dirinfo As DirectoryInfo) As Long
Try
Dim dirSize As Long = 0
' Add file sizes.
Dim AllFiles As FileInfo() = dirinfo.GetFiles()
Dim FileSysInfo As FileInfo
Dim strTemp As String

For Each FileSysInfo In AllFiles
strTemp = FileSysInfo.DirectoryName
dirSize += FileSysInfo.Length
Next FileSysInfo
' Add subdirectory sizes.
Dim AllDirs As DirectoryInfo() = dirinfo.GetDirectories()
Dim DirSysInfo As DirectoryInfo
For Each DirSysInfo In AllDirs
dirSize += DirectorySize(DirSysInfo)
Next DirSysInfo
Return dirSize
Catch strTemp As PathTooLongException
' This is where I would like to catch the offending culprit.
End Try
End Function 'DirSize