Опятьже Pascal

-

1. MkDir(dir:string);

2. Можно

3.

Код:

procedure ScanDir(Dir: string);
var
  SearchRec: TSearchRec;
begin
  if Dir <> '' then
    if Dir[length(Dir)] <> '\' then
      Dir := Dir + '\';

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.name = '.') or (SearchRec.name = '..') then
        continue;

      if (SearchRec.Attr and faDirectory) <> 0 then
        ScanDir(Dir + SearchRec.name)
          //we found Directory: "Dir+SearchRec.name"
      else
        filename:=Dir + SearchRec.name; // тут писать то, что нужно делать с найденным файлом
      //we found File: "Dir+SearchRec.name"

    until
      FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


// Пример использования
  ScanDir('c:');

Спасибо, + поставил , еще вопрос... вот тут пусть правельно указан? в дельфи это делаю плюсиками, а в паскале также? Assign(ppc,'tests\'+TestGroup+'\'+TestName); если tests - уже готовая папка, а тест груп - переменная, тест нейм - тоже переменная

Delphi это и есть pascal.

Может ктонить мне скзаать правельный путь? Assign(ppc,'tests\'+TestGroup+'\'+TestName);

Assign(ppc,'tests\',TestGroup,'\',TestName);

Так попробуй

Да тож там плюсами... А запятыми разделяются переменные, передаваемые функции / процедуре.

странно если с плюсами он пишет типо не найден пусть.... Assign(ppc,'tests\'+TestGroup+'\'+TestName); TestGroup - папка testgroup:='1'; такая папка там есть.... а тест нейм - файл который должен создаваться в этой папке.. но когда пытаюсь создать с помощью rewrite он пишет типо не найден путь

Строковые переменные в паскале соединяются плюсами, а если пишет не найден путь, ты не думал что мб такого пути нет и косяк в содержимом твоих переменных?

нет косяка нету... в папке tests есть папка 1 а TestGroup:='1';

все великий Jolan мне помог!

{Спасибо, конечно, но мог бы и написать, как я помог) Проблема была в том, что указывался неполный путь. Т.е. Программа лежала еще в одной подпапке. JoLan}

Нет,покрайней мере я так не извращался х)

Это будет работать только когда окно программы (если его так можно назвать) будет активным.В противном случае идите вы в жопу он вам скажет.Такшо имел я этот способ (:.
И да,ему нужен хот кей,т.е перехватить и выполнить действие а не небось какое гавно.
+Важная заметка,не стоит пистить сорцы из гугла в то время как можно придумать самому

Все ваш капитан очевидностЭ

И да.В 7.1 есть стандартный HotKey такшо шатал я эту самопалину.

Всегда ваш кэп.

Очень прошу.... подробно... разжевать следующее... т.к. мне не нужно тупо скопировать это. мне нужно это понимать и использовать.....

Код:

procedure ScanDir(Dir: string);
var
SearchRec: TSearchRec;
begin
if Dir <> '' then
if Dir[length(Dir)] <> '\' then
Dir := Dir + '\';

if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.name = '.') or (SearchRec.name = '..') then
continue;

if (SearchRec.Attr and faDirectory) <> 0 then
ScanDir(Dir + SearchRec.name)
//we found Directory: "Dir+SearchRec.name"
else
filename:=Dir + SearchRec.name; // тут писать то, что нужно делать с найденным файлом
//we found File: "Dir+SearchRec.name"

until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;


// Пример использования
ScanDir('c:');

Код:

procedure ScanDir(Dir: string);
var
  SearchRec: TSearchRec;
begin
  if Dir <> '' then                            // Если переменная dir не пустая
    if Dir[length(Dir)] <> '\' then       //  то проверяем если в конце строки нет слеша
      Dir := Dir + '\';                            //  то добавляем его

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then           // Начинаем искать все файлы в директории, если хоть что-то есть
    repeat                                                                                  // то начинаем цикл
       if (SearchRec.name = '.') or (SearchRec.name = '..') then     // если нашли . или .. 
        continue;                                                                              // пропускаем их

      if (SearchRec.Attr and faDirectory) <> 0 then                      // если нашли папку
        ScanDir(Dir + SearchRec.name)                                           // функция вызывает сама себя для прохода найденной папки          
      else                                                                                     // если нет, то
        filename:=Dir + SearchRec.name;                                      // тут писать то, что нужно делать с найденным файлом      
    until                                                                                   // продолжаем цикл
      FindNext(SearchRec) <> 0;                                                // пока не закончатся файлы папки
  FindClose(SearchRec);                                                      // закрываем поиск файлов
end;                                                                                   // аминь