$path = "C:\Documents and Settings\...\Мои документы\Мои рисунки"
Run("Explorer.exe " & $path)
$directory = StringSplit($path,"\")
$name = $directory[$directory[0]]
Sleep(5000)
ControlSend($name,"", "[CLASS:Edit; INSTANCE:1]","{END}")
ControlSend($name,"", "[CLASS:Edit; INSTANCE:1]","\Фандиков" & @CRLF)