FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Findfirst funciona cuando quiere
Tengo un caso muy curioso.
Utilizo en findfirst con el atributo de directorio para buscar los directorios de un directorio, pues bien, en algunos ordenadores funciona y en otros no. El mismo mismo programa por ejemplo en windows xp home funciona pero otro con windows xp pro no funciona. Alguien sabe que puede estar pasando. Si es un problema del xp pro, que alternativa tengo al findfirst. gracias. |
#2
|
||||
|
||||
Es muy extraño lo que dices...¿Qué es "no funciona"? ¿no retorna nada?... ¿No tendrás problemas con los nombres largos de rutas y archivos?
Porque no nos muestras un ejemplo con algo de código.
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
El ejemplo concreto es el siguiente:
Filtre := Cami+'*.*'; if FindFirst(Filtre,faDirectory,Dir) = 0 then begin repeat if (Dir.Name<>'.') and (Dir.Name<>'..') and (Dir.Attr=faDirectory) then begin // Creem el directori Nod := Ar.Items.AddChild(Pare,UpperCase(Dir.Name)); Nod.ImageIndex := 0; Nod.SelectedIndex := 0; // recursivamen ens cridem per carregar .ia i subdirectoris Carregar(Cami+Dir.Name+'\',Nod); end; until FindNext(Dir) <> 0; end; FindClose(Dir); Donde filtro tendra un valor como por ejemplo 'c:\sql\*.*' i pongo el atributo faDirectory porque lo que busco son solo los subdirectorios. Vuelvo a insistir que este codigo funciona perfectamente en windows xp home pero en una maquina con windows xp pro no funciona. Se que es curioso pero es el mismo programa funcionando en dos maquinas diferentes. Gracias. |
#4
|
||||
|
||||
Deberías postear toda la función, ya que es recursiva y se necesita saber todos los parámetros.
Saludos |
|
|
|