[Electronic_Arts]

Я не хочу переходить по вложенным папкам так как мне достаточно есть папка то переносим

- Сделал как ты сказал - теперь в memo появляется путь к папке которая рядом с ехе-шником но после полета она не появляется в пункте назначения (но с пункта исчезает)

если код делить на две части то у меня не работает только вот эта часть

Код:

if fromDir=ExtractFiledir(ParamStr(0)) then //Если ЕХЕ-шник в той же папке которую хотим переместить то
   begin
    if FindFirst(fromDir + '\' + '*.*', faAnyFile, sr) = 0 then
      repeat
        if (sr.Name = '.') or (sr.name = '..') then Continue;
        if (sr.Attr and faDirectory) = faDirectory then
        //MoveDir(fromDir + sr.Name, toDir) если это не поменять на
          fl.Add(fromDir +'\'+ sr.Name) //то пустые папки в директории не перемещаются
            else
              if sr.Name <> ExtractFileName(ParamStr(0)) then fl.Add(fromDir +'\'+ sr.Name);
                until FindNext(sr) <> 0;
                  FindClose(sr);
 //Спросите тут почему не использовал POS
 //Просто чтоб избавить прогу от цикла
 s1:= ExtractFileDir(ParamStr(0));
 s2:= ExtractFilepath(ExtractFileDir(ParamStr(0)));
 delete(s1, 1, length(s2));
 ToS:=toDir+s1+'\';

После выполнения вижу в мемо
c:\SourceFolder\Новая папка

но на флешке
с:\SourceFolder
Новая папка - не появляется

Помоги как читать из hNameMappings старое и новое место положение перемешенных файлов в моем случае??...а то голова уже не варит...