dudas sobre busqueda de subdirectorios

[acertij022]

Hola delphianos tengo el siguiente codigo:


procedure Buscar_dir();
var
FileSearch: TSearchRec;
begin
Fmain.listbox2.Clear;
FindFirst ('C:\XXXX\*.*', faDirectory, FileSearch);
while FindNext(FileSearch)=0 do
if ((FileSearch.Attr = faDirectory))and(FileSearch.Name<>'..') then
begin
Fmain.Listbox2.Items.Add(uppercase(FileSearch.Name));
end;
FindClose(FileSearch);
end;


Que lo utilizo para ver las subcarpeta de XXXX esto me funciona en windows 98,Melenium hasta en windows 2000 pero en XP nunca me encuentra ningun directorio, ¿a que se debe esto y como lo puedo solucionar?

Espero sus respuestas ya que mi cabeza no da mas

[roman]

Pruebo tu código en XP y me encuentra bien los subdirectorios. ¿Estás seguro de que el directorio que pasas existe?

// Saludos