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:


BuscaPasta('C:\SWEDA\SWD*')


Y sería deseable agregar


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]

:pDirectorio o Folder

// Saludos

entonces Roman, y ese spanglish?? :D

[roman]

fólder o carpeta, términos ambos aceptados por la RAE (http://buscon.rae.es/draeI/SrvltConsulta?TIPO_BUS=3&LEMA=folder) :p

// Saludos

[enecumene]

Directorio o Folder

// Saludos

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

[eduarcol]

fólder o carpeta, términos ambos aceptados por la RAE (http://buscon.rae.es/draeI/SrvltConsulta?TIPO_BUS=3&LEMA=folder) :p

// Saludos

¿y quien es la RAE para decirme como hablar? :rolleyes::D

[roman]

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

// Saludos

[eduarcol]

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

// Saludos

bueno ante la derrota no me queda mas que la retirada ;)