code:

---

$path="c:\df\adsfvad\vwed"

$l=len($path)
$index=$l
$folder=""

while $index>0 and $folder=""
	if substr($path,$index,1)="\"
		$folder=substr($path,$index+1,$l-$index)
		endif
	$index=$index-1
	loop
? $folder

---