[lmikle]

Какое описание нужно-то? Вроде, в коде все откомментированно...

ЗЫ. Для особых извращенцев - есть спец. функции в Delphi:
ExtractFileDrive
ExtractFilePath
ExtractFileName
ExtractFileExt
А для определения, что диск сетевой - путь начинается с '\\'