FILE RECORDSET

clembo

I've this code in Nav 2013:
(RecFile = Recordset FILE)

RecFile.RESET;
recFile.SETCURRENTKEY(Path,"Is a file",Name);
recFile.SETRANGE("Is a file",TRUE);
recFile.SETRANGE(Path,'C:\TEST;
IF recFile.FINDSET THEN REPEAT
ETC..

But when execute page no file was found.
There is a problem with Nav 2013?

This code work great in Nav 2009 R2..

mohana_cse06

NAV2009R2 classic or RTC?

tullio

Nav 2009 R2 RTC

mohana_cse06

In both cases, Servicetier installed on same machine or not?

clembo

mmmhh.. I don't Know ..

thegunzo

is you C:\TEST folder on the server computer or on you client computer ?

geordie

Try to modify the code as following:

recFile.RESET;
recFile.SETCURRENTKEY(Path,"Is a file",Name);
recFile.SETRANGE("Is a file",TRUE);
 
recFile.SETRANGE(Path,'C:\');
IF recFile.FINDSET THEN;
 
recFile.SETRANGE(Path,'C:\TEST');
IF recFile.FINDSET THEN REPEAT
...

I faced the same problem and solved forcing to look in a different path before the search I wanted to perform in order to update the table.

clembo

Nothing. Not work.

There is a way to list all file in a folder.. I think..

mohana_cse06

There will be a way but first you have tell us whether servicetier is installed in your machine on server?

thegunzo

Take a look at the System.IO. objects in mscorlib and use the dotnet interopt method. Use RunOnClient if the files are on the client computer.

tullio

Servicetier is installed on server.

mohana_cse06

RTC will be checking for files in Server machine under 'C:\TEST' path.
You need to either manually upl;oad the files to server or write code to upload the files from user machine to server.

Or try thegunzo's suggestion.

clembo

Problem is I don't know wich files foudn in this folder.
Target is read all files in that folder with filename start with customer*.txt but I can't know before wich file found.

thegunzo

Perhaps this will help.

OBJECT Codeunit 50000 UnzipAndImport
{
  OBJECT-PROPERTIES
  {
    Date=25.06.13;
    Time=11:48:39;
    Modified=Yes;
    Version List=Dynamics.is;
  }
  PROPERTIES
  {
    OnRun=BEGIN
          END;

  }
  CODE
  {
    VAR
      ServerDirectory@1000000004 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Directory";
      ServerPath@1000000006 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Path";
      ServerFile@1200050027 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.File";
      ServerZipFile@1000000005 : DotNet "'System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Compression.ZipFile";
      ServerExtractedFiles@1000000007 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Array";
      FileMgt@1200050025 : Codeunit 419;

    PROCEDURE UnZipAndImport@1200050001(ZipFileName@1200050001 : Text[1024]);
    VAR
      TempFileName@1200050008 : Text[1024];
      TempFolderName@1200050003 : Text[1024];
      Index@1200050004 : Integer;
    BEGIN
      TempFolderName := FileMgt.GetDirectoryName(ZipFileName) + 'NAV_UNZIP';
      IF ServerDirectory.Exists(TempFolderName) THEN BEGIN
        ServerDirectory.Delete(TempFolderName,TRUE);
        SLEEP(100);
      END;

      ServerZipFile.ExtractToDirectory(ZipFileName,TempFolderName);
      ServerExtractedFiles := ServerDirectory.GetFiles(TempFolderName);
      IF ServerExtractedFiles.Length > 0 THEN
        FOR Index := 1 TO (ServerExtractedFiles.Length) DO BEGIN
          TempFileName := ServerExtractedFiles.GetValue(Index - 1);
          // Do what you like with TempFileName
          ServerFile.Delete(TempFileName);
        END;

      IF ServerDirectory.Exists(TempFolderName) THEN
        ServerDirectory.Delete(TempFolderName,TRUE);
    END;

    BEGIN
    END.
  }
}