Put do fajla

3
4
5
6
7
8
9
10

'допустим, в переменной x - полный путь и имя файла с расширением

'получить имя файла (без пути)
Dim FileName As String = FileIO.FileSystem.GetName(x)

'получить полный путь к файлу (без имени)
Dim FileDir As String = FileIO.FileSystem.GetFileInfo(x).DirectoryName 

'получить только расширение файла
Dim FileExt As String = FileIO.FileSystem.GetFileInfo(FileName).Extension