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
//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);
Your code is not visible .Kindly paste the code again
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,269
Super User 2024 Season 2
#2
Martin Dráb
230,198
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (