Busca Directory

[Paulao]

Como se dice Directory en Español? Necesito hacer una funccion que traiga este subdirectory. Hizo asi, pero no estas completa. Que debo hacer para mi funccion funcionar?

function BuscaPasta(Path: String):String;
var
sBusca: TSearchRec;
begin
if FindFirst(Path,faDirectory,sBusca) = 0 then
Result := sBusca.Name;
end;

El subdirectory estara siempre en el Directory C:\SWEDA. Este Directory puede tener mas de uno(no deberia, pero no puedo creer en usuario), pero el Subdiretory que busco siempre impiezara con SWD, siempre:SWD + Numero de Fabricaccion del equipo.

[roman]

Pues sólo tendrías que pasar el parámetro correcto a tu función:

Código Delphi [-]
BuscaPasta('C:\SWEDA\SWD*')

Y sería deseable agregar

Código Delphi [-]
FindClose(sBusca);

al final de tu función.

// Salud

[Paulao]

Si es esto, listo, pero como se dice(habla) Directory en Español?

[roman]

Directorio o Folder

// Saludos

[[eduarcol]]

Empezado por roman

Directorio o Folder

// Saludos

entonces Roman, y ese spanglish??

[roman]

fólder o carpeta, términos ambos aceptados por la RAE

// Saludos

[[enecumene]]

Empezado por roman

Directorio o Folder

// Saludos

Que pasó ahí amigo Roman, ¿estás borracho sin beber?

[[eduarcol]]

Empezado por roman

fólder o carpeta, términos ambos aceptados por la RAE

// Saludos

¿y quien es la RAE para decirme como hablar?

[roman]

A esa pregunta se responde con otra pregunta, pero no quiero ofender

// Saludos

[[eduarcol]]

Empezado por roman

A esa pregunta se responde con otra pregunta, pero no quiero ofender

// Saludos

bueno ante la derrota no me queda mas que la retirada