Znaleziony kod, wyszukuje również pliki, a zmieniłem, aby tylko katalogi.
Wyszukuje również, pliki których nie chcę (poniżej) oraz ścieżkę typu: C:\Documents and Settings\TERA\Dane aplikacji\Projekt. oraz C:\Documents and Settings\TERA\Dane aplikacji\Projekt.. czyli dodaje kropki, na dole będzie plik Test.txt
Found := FindFirst(GetSpecialFolderPath(CSIDL_APPDATA) + '\Projekt\*.*',faDirectory,Finder);
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
while (Found = 0) do // dopóki liczba znalezionych obiektów nie będzie równa zero.
begin
if Finder.Name <> (PChar('_usernames') or PChar('Config.XML')) then
WriteLn(myFile, GetSpecialFolderPath(CSIDL_APPDATA) + '\Projekt\' + Finder.Name);
Found:=FindNext(Finder); // kontynuacja wyszukiwania
end;
FindClose(Finder); // zakończenie wyszukiwania.
CloseFile(myFile);
Append(myFile); // Reopen to append a final line to the file
WriteLn(myFile, 'Final line added'); // Write this final line
CloseFile(myFile); // Close the file
Test.txt
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\.
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\..
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\appsetting
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\updater
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\replacer
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\Config.ini
C:\Documents and Settings\TERA\Dane aplikacji\Projekt\_usernames
Final line added
// 2-ch ostatnich bez Final, powinno nie wyświetlać - 1wszy jest plikiem, 2gi jest folderem którego nie chcę.