'File' System Record and the RTC

r44712

Hi,

We're currently upgrading a customer's database from 403 to 601.

They've some functionality which uses the 'File' System Record, which of course doesn't work in the RTC (I've tried, even though the customer uses IP addresses to point to a folder, it still doesn't work)!

WITH RecFile DO BEGIN
  RESET;
  SETRANGE(Path,InterfaceSetup."Folder - In");
  SETRANGE("Is a file",TRUE);
  SETFILTER(Name,'@*.' + InterfaceSetup."Import - File Extension");
  IF(FINDSET) THEN REPEAT
    ....
  UNTIL(NEXT = 0);
END;

Has anybody else had this issue? How can I approach the problem?

Any ideas greatfully received!

rmv_RU

You can use Windows Script Host Object Model
For example:

Name	DataType	Subtype	Length
Folder	Automation	'Windows Script Host Object Model'.Folder	
Files	Automation	'Windows Script Host Object Model'.Files
FL	Automation	'Windows Script Host Object Model'.File

begin
      Folder.Path:=InterfaceSetup."Folder - In";
      Files:=Folder.files
      for i:=0 to files.count-1 do begin
            FL:=files.item(i);
            if FL.type ...... then begin
                .......................
            end; 
      end;
end