Getting the format of a file

The following conditions may cause an exception:

The path is not valid for one of the following reasons: it is a zero-length string; it contains only white space; it contains invalid characters; or it is a device path (starts with \\.\) (ArgumentException).

The path is not valid because it is Nothing (ArgumentNullException).

directory does not exist (DirectoryNotFoundException).

directory points to an existing file (IOException).

The path exceeds the system-defined maximum length (PathTooLongException).

A file or directory name in the path contains a colon (:) or is in an invalid format (NotSupportedException).

The user lacks necessary permissions to view the path (SecurityException).

The user lacks necessary permissions (UnauthorizedAccessException).

  ...
  Dim check As String = System.IO.Path.GetExtension(filename)
  Return check
End Function

Function GetFormat(ByVal filePath As String) As Integer
      Try
          Dim foundFile As String = My.Computer.FileSystem.GetFiles(filepath).ToString()
          Dim check As String = System.IO.Path.GetExtension(foundFile)
          Return check
      Catch ex As ArgumentException
      End Try
  End Function

filepath = "C:\Users\Tsahi\Desktop\IMG_0198.JPG"

My.Computer.FileSystem.GetFileInfo(filePath).Exists

<pre lang="vb">