Falta API de windows Filer.FileUtil VFP 9

[Ariel]

Hola, compañeros de VFP , hice un proceso que busca archivos en un directorio y los cargo en un cursor. esto lo hago mediante la API de windows  Filer.FileUtil, (detallo el código al final).

El problema: en mi pc de "LABORATORIO" anda bárbaro  es una VMWARE WINDOWS SERVER 2003 R2 ENTERPISE EDITION SP2. Pero cuando subo el ejecutable a un DATACENTER (donde se encuentra el sistema) no funciona, me da el error: NO SE ENCUENTRA LA DEFINICIÓN DE CLASE FILER.FILEUTIL.

en este servidor esta instalado un WINDOWS SERVER 2003 Standart Edition SP2.

Alguien sabe como puedo instalar esta api sin tener que modificar el sistema operativo (ya que esto no esta a mi alcance, por temas de licencia y estos temas lo manejan los administradores del datacenter), o alguna otra forma de buscar archivos y cargarlos

LOCAL loFiler AS 'Filer.FileUtil'

*--Creo un cursor para guardar las rutas

CREATE CURSOR archiv(RUTA CHAR(250)null)

*-- Creo el objeto

loFiler = CREATEOBJECT('Filer.FileUtil')

*-- Indico la ruta

loFiler.SearchPath = GETDIR()

*-- Indico el archivo o mascara

loFiler.FileExpression = 'Recetas.txt'

*-- Indico que busque en subcarpetas

loFiler.SubFolder = 1

*-- Busco...

loFiler.Find(0)

IF loFiler.Files.Count > 0

  MSGINFORMACION ( TRANSFORM(loFiler.Files.Count) + ' archivo/s encontrado/s')

 

  FOR lnCant = 1 TO loFiler.Files.Count

    WITH loFiler.Files.Item(lnCant)

    IF ATC('Receta',.Name)>0

    SELECT ('archiv')

  APPEND BLANK

      REPLACE RUTA WITH .Path + .Name

    ENDIF

    ENDWITH

  ENDFOR

 

ELSE

 msgerror( 'El archivo no se encontró.')

ENDIF

loFiler = NULL

Desde ya muchas gracias

Ariel D'Alfeo

Córdoba, Argentina

[Víctor Hugo Espínola Domínguez]

Hola Ariel

> o alguna otra forma de buscar archivos y cargarlos

Descarga el adjunto. Mira los métodos Find y ListImg.

Saludos.

Víctor.

--
 
 
 

[Ariel D'Alfeo]

Amigos, ya lo solucione, me estaba ahogando en un vaso de agua. Busque la dll (filer.dll) la subi al servidor y la registre. ahora anda barbaro.

Ariel D'Alfeo
Córdoba Argentina

--
 
 
 

[Ariel D'Alfeo]

gracias por la repuesta Victor , probare el código que me enviaste, pero te comento que lo pude solucionar. Me estaba ahogando en un vaso de agua, lo unico que tenia que hacer era buscar la dll (filer.dll) subirla al servidor y registrarla.


Ariel D'Alfeo

--
 
 
 

[Víctor Hugo Espínola Domínguez]

Hola Ariel

Prueba si te gusta GETDIR con parámetros: GETDIR( ".", "Elija una carpeta...", "Carpetas" )

Te sugiero que ejecutes tu código con los siguientes parámetros:

loFiler.FileExpression = '*.txt;*.prg;*.scx;*.sct'

loFiler.FileExpression = '*.txt;*.prg;*.scx;*.sct;*.dbf'

loFiler.FileExpression = '*.txt;*.prg;*.scx;*.sct;*.dbf;*.bak'

Saludos.

Víctor.

--