Как узнать папку, имея путь?

[k790]

как можно получить имя папки, имея путь?
Задача вот в чём, нужно имея путь к файлу, узнать имя папки последней папки, то есть C:\34\66\34\765\3\qwerty - путь, который мы имеем (почти имеем), так вот как получить последнюю папку qwerty ?

 

[madmasles]

k790
1. Деление пути к файлу на части.
2. _WinAPI_PathRemoveFileSpec() из WinAPIEx.au3.

 

[k790]

а какой проще, короче и рациональней? :whistle:

 

[madmasles]

k790,

#include <WinAPIEx.au3>

;$sPath = 'C:\'
;$sPath = 'C:\34\66\34\765\3\qwerty'
$sPath = 'C:\34\66\34\765\3\qwerty\1.au3'
If StringRight($sPath, 1) == '\' Then $sPath = StringTrimRight($sPath, 1)

If StringInStr($sPath, '.') Then
	$sDir = _WinAPI_PathStripPath(_WinAPI_PathRemoveFileSpec($sPath))
Else
	$sDir = StringRegExpReplace($sPath, '^.*\\', '')
EndIf
MsgBox(64, 'Info-1', $sDir)
;или
$aPath = StringSplit($sPath, '\')
If StringInStr($sPath, '.') Then
	$sDir = $aPath[$aPath[0] - 1]
Else
	$sDir = $aPath[$aPath[0]]
EndIf
MsgBox(64, 'Info-2', $sDir)