Проверка папок

[Gladiator]

Вечер добрый...
Вобщем у меня такая запарочка...
Нужно чтобы при нажитии на кнопку проверялось следующее:
1)есть ли в папке где находится программа папка "Архив" ,если есть то..
2)есть ли в папке "Архив" папка которая называется как нынешний год(к примеру 2008) если нет то создать ее..
очень прошу помощи...

[Greblin]

var SearchRec: TSearchRec; 
     apppath: string;

apppath := ExtractFilePath(Application.ExeName);
if FindFirst(apppath + 'Архив\', faDirectory, SearchRec)=0 then
  begin
  //делаем чё надо
  end;

создать папку можно функцией CreateDir

[Gladiator]

от за это спасибо!!!
а со вторым моим вопросом не поможешь??

[Greblin]

Ну дык тоже самое

var year: string;
     SearchRec: TSearchRec;
     path: string;

begin
year := FormatDateTime('yyyy', Now);
path := ExtractFilePath(Application.ExeName) + 'Архив\' + year;
if FindFirst(path, faDirectory, SearchRec) <> 0 then  
  CreateDir(path);
end;

[Gladiator]

Благодарю!!