Программно узнать какие есть в определённой папке файлы и если есть лишние удалить их

@Marshal_Xaker · Регистрация: 26.08.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Помогите пожалуйста нубу реализовать то что напишу ниже

Если конечно это не сложно для вас.

Мне нужно программно узнать какие есть в определённой папке файлы и если есть лишние удалить их! Например:

Папка Mods в ней файлы

1.zip
2.jar
3.zip

Мы запускаем программу и всё проходит гладко, но если в папке появится jar или zip архив которого изначально нету его нужно удалить!
Проверку наличия файла или папки я могу сделать, а вот парсить какие файлы в папке и ненужные удалять...

Добавлено через 6 минут
А и ещё. Возможно как-то сравнивать с директориями и файлами на FTP сервере например? Что бы всё было одинаково как на FTP сервере и не одного лишнего файла!

Добавлено через 2 минуты
А что если получить список файлов с той же папки Mods и записать в Memo, потом получить списки файлов в папке Mods из FTP сервера и так же записать в memo! А потом сверить эти два мемо, если они равны пускаем в программу например

Если нет, удаляем папку и перекачиваем файлы!

@ZfoxAK · 14.01.2014, 08:27

FileExists -проверяет наличие файла в указанном месте
DeleteFile-удаляет файл

Delphi

1 2	var AppFolderPath:string; AppFolderPath:=copy(ExtractFilePath(Application.ExeName),1,length(ExtractFilePath(Application.ExeName))-1);

путь к папке где находится исполняемый файл

@MaximFegorsk · 14.01.2014, 09:24

Вот статья как искать файлы по маске. В твоем случае по расширению.

@Marshal_Xaker · 14.01.2014, 15:22 **[ТС]**

Сообщение от ZfoxAK

FileExists -проверяет наличие файла в указанном месте
DeleteFile-удаляет файл

Delphi

1 2	var AppFolderPath:string; AppFolderPath:=copy(ExtractFilePath(Application.ExeName),1,length(ExtractFilePath(Application.ExeName))-1);

путь к папке где находится исполняемый файл

Допустим, но я же не знаю имя файла который туда положат! Допустим Name.jar я не знаю его имени, но так как он лишний мне нужно его удалить!

@BarsikCat · 14.01.2014, 16:28

Сообщение от Marshal_Xaker

Допустим, но я же не знаю имя файла который туда положат! Допустим Name.jar я не знаю его имени, но так как он лишний мне нужно его удалить!

Delphi

var
  FilePath :string;  
  SearchRec  :TSearchRec;
  MASKA  :string;  
  
begin 
  MASKA := '*.zip'; //задайте здесь нужную маску для поиска.
  FilePath := ..... // задаем путь к папке, в которой надо производить поиск файлов.
  ChDir(FilePath); 
    If FindFirst(MASKA , faArchive , SearchRec)=0 then
    REPEAT  
      If (SearchRec.Attr and faAnyFile) = SearchRec.Attr then begin
        // найден файл по заданной маске: 
        // полное имя файла будет: FilePath + SearchRec.Name;         
        // можно сравнивать его имя, заносить в какой-нибудь список, и т.п.
      end;
    UNTIL (FindNext(SearchRec) <> 0);
end;

@ZfoxAK · 15.01.2014, 05:42

Сообщение от Marshal_Xaker

Допустим Name.jar я не знаю его имени, но так как он лишний мне нужно его удалить!

Если не знаешь что он лишний как собираешься удалять...?? Для это задаются критерии по которым производится удаление. Если есть списоки - сравниваешь. Есть такая компонента FileListBox выдает список файлов в папке.

@Marshal_Xaker 0 / 0 / 0 Регистрация: 26.08.2013 Сообщений: 23
		1
	Программно узнать какие есть в определённой папке файлы и если есть лишние удалить их 13.01.2014, 23:08. Показов 2967. Ответов 5 Метки нет (Все метки) Доброго времени суток! Помогите пожалуйста нубу реализовать то что напишу ниже Если конечно это не сложно для вас. Мне нужно программно узнать какие есть в определённой папке файлы и если есть лишние удалить их! Например: Папка Mods в ней файлы 1.zip 2.jar 3.zip Мы запускаем программу и всё проходит гладко, но если в папке появится jar или zip архив которого изначально нету его нужно удалить! Проверку наличия файла или папки я могу сделать, а вот парсить какие файлы в папке и ненужные удалять... Добавлено через 6 минут А и ещё. Возможно как-то сравнивать с директориями и файлами на FTP сервере например? Что бы всё было одинаково как на FTP сервере и не одного лишнего файла! Добавлено через 2 минуты А что если получить список файлов с той же папки Mods и записать в Memo, потом получить списки файлов в папке Mods из FTP сервера и так же записать в memo! А потом сверить эти два мемо, если они равны пускаем в программу например Если нет, удаляем папку и перекачиваем файлы! 0

@MaximFegorsk 32 / 53 / 9 Регистрация: 05.12.2013 Сообщений: 261
	14.01.2014, 09:24	3
	Вот статья как искать файлы по маске. В твоем случае по расширению. 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	15.01.2014, 05:42	6
	Сообщение от Marshal_Xaker Допустим Name.jar я не знаю его имени, но так как он лишний мне нужно его удалить! Если не знаешь что он лишний как собираешься удалять...?? Для это задаются критерии по которым производится удаление. Если есть списоки - сравниваешь. Есть такая компонента FileListBox выдает список файлов в папке. 0

Опции темы