Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Вниз
Работа с папками Найти похожие ветки
← →
InfMag © (2004-12-07 19:42) [0]Люди, подскажите как создавать, удалять и переименовывать не файлы, а именно папки...
← →
Юрий Зотов © (2004-12-07 19:54) [1]MkDir
CreateDir
ForceDirectories
RmDir
RemoveDir
Переименование - не уверен, но попробуйте RenameFile.
← →
begin...end © (2004-12-07 19:54) [2]> InfMag © (07.12.04 19:42)
Создание - ForceDirectories; удаление и переименование: SHFileOperation (API).
← →
InfMag © (2004-12-07 19:55) [3]Пропиши пожалйста как именно переименовывать...
← →
InfMag © (2004-12-07 20:04) [4]И еще хочу спросить - как программно в определенной папке получить список папок?
← →
begin...end © (2004-12-07 20:08) [5]> [3] InfMag © (07.12.04 19:55)
Юрий Зотов, как всегда, прав: RenameFile подходит.
RenameFile("c:\OldName", "c:\NewName")
> [4] InfMag © (07.12.04 20:04)
См. FindFirst, FindNext, FindClose, TSearchRec.Attr, faDirectory.
См. также: ФАК.
← →
InfMag © (2004-12-07 20:12) [6]Прошу теперь описать как в ListBox получить список папок?
← →
begin...end © (2004-12-07 20:14) [7]> [6] InfMag © (07.12.04 20:12)
А в ФАК"е, извиняюсь за выражение, Вы уже побывали?
См. [5] (вторая часть) + TListBox.Items.Append.
← →
InfMag © (2004-12-07 20:20) [8]Может проше прописать? Не могу найти...
← →
begin...end © (2004-12-07 20:23) [9]> [8] InfMag © (07.12.04 20:20)
Проще использовать компонент TDirectoryListBox. Или ещё проще надо?
← →
InfMag © (2004-12-07 20:25) [10]Понимаеш, он мне дает эти [.] и [..], а мне они крайне не нужны...
← →
begin...end © (2004-12-07 20:27) [11]> [10] InfMag © (07.12.04 20:25)
Понимаю, а что мешает их игнорировать?
Повторяю: в ФАК"е (и не только этого сайта) есть примеры.
← →
InfMag © (2004-12-07 20:27) [12]Стоп, вру - это FileListBox дает такие фичи, но всеже DirectoryListBox идет от начального пути...
C:\
Folder1
SubFolder1
и т.д и т.п.
← →
InfMag © (2004-12-07 20:29) [13]Блин, а в каком именно ФАКе?
← →
begin...end © (2004-12-07 20:35) [14]> [13] InfMag © (07.12.04 20:29)
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19
Только нужно немного подправить.
← →
InfMag © (2004-12-07 20:37) [15]Поможеш?
← →
begin...end © (2004-12-07 20:40) [16]> [15] InfMag © (07.12.04 20:37)
А подумать - ?
← →
InfMag © (2004-12-07 20:42) [17]Вобщето попробовал,.. запутался... Не врубаюсь че-то... Не получается. Помшли, плиз.
← →
panov © (2004-12-07 20:51) [18]http://www.delphimaster.ru/cgi-bin/forum.pl?n=5&search=FindFirst
← →
begin...end © (2004-12-07 20:56) [19]> [17] InfMag © (07.12.04 20:42)
procedure ScanDir(StartDir: String; List: TStrings);
var
SearchRec: TSearchRec;
begin
StartDir := IncludeTrailingPathDelimiter(StartDir);
if FindFirst(StartDir + "*.*", faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if ((SearchRec.Attr and faDirectory) = faDirectory)
and (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
begin
List.Add(StartDir + SearchRec.Name + "\");
ScanDir(StartDir + SearchRec.Name + "\", List)
end
until FindNext(SearchRec) <> 0;
FindClose(SearchRec)
end
end;
begin
ScanDir("c:\Program Files", ListBox.Items)
end.
← →
InfMag © (2004-12-07 20:58) [20]Лучше просто написать код... Все пробую, но не получается...
← →
InfMag © (2004-12-07 21:14) [21]Все притихли или все трудятся над данной проблемой?
← →
Alexander Panov © (2004-12-07 21:15) [22]InfMag © (07.12.04 21:14) [21]
Все притихли или все трудятся над данной проблемой?
Наверное трудятся. Задача невероятно трудна и на пути к решению ожидает немало терний...
Особенно учитывая begin...end © (07.12.04 20:56) [19]
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.035 c
