Microsoft Dynamics NAV (Archived)

How to get the File from the particular path

(0) Share

Report

Posted on by Community Member

Hi All,

I am trying to pick only the filename from the specified path but not able to do that.

Previously i was comparing the filename with the filename that exists in the Folder.

If it was there then i was importing the data to NAV.

But now if in that filepath i have 10 files that starts with "CC" then one by one i have to import all the files.

Below is my code.Please suggest.

Thank u in advance.

*This post is locked for comments

I have the same question (0)

All responses (3)

Answers (0)

Suggested answer

Amol Salvi 18,698 on at

Like (0)

Report

Your code is not visible .Kindly paste the code again

Was this reply helpful? Yes No
Suggested answer

Maneesha 5,891 on at

Like (0)

Report

Pushpa ,

your code image/text are missing can you repost it ?

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

//START-004

DSVFileName:='CC'+CONVERTSTR(FORMAT(TODAY,0,'<day,2><month,2><year4>'),' ','0')+'.txt';

IF EXISTS(CustClrSetup.Filepath+DSVFileName) THEN

CustClrSetup."BAT Text File":= CustClrSetup.Filepath+DSVFileName;

//STOP-004

FileName := CustClrSetup."BAT Text File";

WHILE STRPOS(FileName,'\') > 0 DO

FileName := COPYSTR(FileName,STRPOS(FileName,'\') + 1);

PathName := CustClrSetup.Filepath;

NewFileName:= 'CC'+CONVERTSTR(FORMAT(TODAY,0,'<day,2><month,2><year4>') ,' ','0')+'.txt';

IF CustClrSetup."BAT Text File" <> PathName + FileName THEN

ERROR(Text50000);

FTPFile.WRITEMODE(TRUE);

FTPFile.TEXTMODE(TRUE);

FTPFile.CREATE(PathName + CustClrSetup."FTP File Name");

FTPFile.WRITE(CustClrSetup."User Name");

FTPFile.WRITE(CustClrSetup.Password);

FTPFile.WRITE('lcd C:\');

FTPFile.WRITE('cd order_sys');

FTPFile.WRITE('hash');

FTPFile.WRITE('get ' + FileName);

FTPFile.WRITE('bye');

FTPFile.CLOSE;

BATFile.WRITEMODE(TRUE);

BATFile.TEXTMODE(TRUE);

BATFile.CREATE(PathName + CustClrSetup."BAT File Name");

BATFile.WRITE('C:');

BATFile.WRITE('FTP -s:' + PathName + CustClrSetup."FTP File Name" + CustClrSetup."Server Address");

BATFile.CLOSE;

ReturnCode := SHELL(PathName + CustClrSetup."BAT File Name");

ERASE(PathName + CustClrSetup."FTP File Name");

ERASE(PathName + CustClrSetup."BAT File Name");

}

IF EXISTS(PathName+FileName) THEN BEGIN

COPY(PathName+FileName,CustClrSetup."Backup Filepath"+NewFileName);

ERASE(PathName+FileName);

END ELSE

ERROR('Cannot find %1',PathName+FileName);

ImportFile.TEXTMODE(TRUE);

ImportFile.OPEN(CustClrSetup."Backup Filepath"+NewFileName);

Was this reply helpful? Yes No