Ayuda a Pasar Codigo Delphi a C++

[yelian]

Muchísimas gracias escafandra,

Como siempre de muchísima ayuda para este foros,

Bueno tengo otra duda por preguntar, presida a esta pero no la pongo todavía por que estoy buscando por las paginas que tengo acceso a ver si la puedo solucionar, sino puedo encontrar la respuesta la pongo aquí, para ver si me pueden ayudar como siempre lo hacen,
No la pongo ahora por que no me gusta postear algo que no e buscado antes, pregunto las dudas ya cuando no tengo mas Acternativas de búsqueda.

Bueno Muchísimas Gracias y Saludos a Todos...

[yelian]

Hola a todos de nuevo ya esroy a qui de nuevo,
Comos les había contado antes tengo otra duda con otro código,
Pero el de ahora no es problema con el código sino a la hora de llamar a la función.

El código es el siguiente, creo que lo saque de este mismo foros...


void DirList(String sPath, TStrings* strings)
{
TSearchRec sr;
sPath = IncludeTrailingPathDelimiter(sPath);
bool hecho = FindFirst(sPath + "*.*", faAnyFile, sr);
while (!hecho)
{
if ((sr.Attr & faDirectory) && sr.Name != "." && sr.Name != "..")
{
strings->Append(sPath + sr.Name);
DirList(sPath + sr.Name, strings);
}
hecho = FindNext(sr);
}
FindClose(sr);
}


No se si lo estoy llamado de forma correcta o el codigo tiene algún problema,

Llamo a la función así

DirList("C:\\prueba\\*", ) ;

Pero no se que voy a poner como segundo parametro de la función,

Bueno les explico un poco mas de lo que quiero hacer,

Mi idea es hacer un Servicio que cada vez que se ejecute me limpie una carpeta (me borre todo el contenido dentro de ella), pero quisiera darles algunas exclusiones , por que una de las carpetas las cual quiero Limpiar es
"Documents and Settings", pero no quiero borrar todas sus carpetas por que saben que hay varias carpetas que no se pueden borrar de hay,

Bueno Saludos y Gracias a todos...

[[escafandra]]

void DirList(String Dir, TStrings* Salida)
{
    TSearchRec sr;
    if(!FindFirst(Dir + "\\*.*", faAnyFile, sr))
    do{
       if(sr.Name != "." && sr.Name != ".."){
          if(sr.Attr & faDirectory)
             DirList(Dir + "\\" + sr.Name, Salida);
          else
             Salida->Add(Dir + "\\" + sr.Name);
       }
    } while (!FindNext(sr));
    FindClose(sr);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DirList("C:\\Archivos de programa", ListBox1->Items);
}

Saludos.

[yelian]

Gracias por la Ayuda escafandra

Pero el código me detecta todos los ficheros aunque estén dentro de otro subdirectorio pero no me muestra las carpetas que son las que quiero excluir algunas,

[[escafandra]]

void Folders(String Dir, TStrings* Salida)
{
    TSearchRec sr;
    if(!FindFirst(Dir + "\\*.*", faAnyFile, sr))
    do{
      Salida->Add(Dir + "\\" + sr.Name);
    } while (!FindNext(sr));
    FindClose(sr);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Folders("C:\\Documents and Settings", Memo1->Lines);
}

Saludos.

[yelian]

Gracias escafandra;

El código me funciona bien pero me saca unas carpetas con puntos que no se que son y no existen, te muestro lo que sale en el Memo

--------------------------------------
C:\Documents and Settings\.
C:\Documents and Settings\..
C:\Documents and Settings\Administrador
C:\Documents and Settings\Administrador.IPIMTZAG
C:\Documents and Settings\All Users
C:\Documents and Settings\amartinez
C:\Documents and Settings\Default User
C:\Documents and Settings\LocalService
C:\Documents and Settings\NetworkService
C:\Documents and Settings\yrodriguez

-----------------------------------------------------

Las dos primeras no se que son, como se pudieran quitar y también como pudiera darles las exclusiones que yo quisiera.

Yo lo que trato de hacer es paserle esta lista a la función de eliminar Carpetas completas

Muchas gracias por la ayuda brindada

[[escafandra]]

Viene desde la época del DOS:
\. es la carpeta actual
\.. es la carpeta anterior (padre)

Saludos.