I've used something like the following in the past.
if DoRcv then
iCnt = FtpGetDir(FALSE); // TRUE = LIST FALSE = NLST
iIndex = 0;
while iIndex < iCnt do
begin
FtpGetDirString(iIndex, OneLine);
GetFile = OneLine;
if left(GetFile,3) = "EDI" then
begin
FtpRcvMsg(GetFile);
ArchivePath = "archive/" + GetFile;
// FtpDelete(GetFile);
FtpRename(GetFile, ArchivePath);
end
iIndex = iIndex + 1;
end
SetStatus(SUCCESS);
Stephen
--- In [email protected], Vijay Chandra <vijaychandrak07@...> wrote:
>
> Hi All,
>
> We have a requirement to pickup files from a remote FTP host and
> simultaneously archive them under a different folder on the FTP host.
>
> How can we move files from one directory to another at remote location using
> Gentran FTP commands? Below is the FTP script what I have used for sending
> and receiving files from FTP server.
>
> // define run-time variables
> integer MsgId;
> integer AtmId;
> string[128] FileName;
>
> // send procedure
> if DoSnd then
> begin
> FtpChangeDir("testin");
> MbxStartMsgLoop();
> while MbxGetNextMsg(MsgId) != 0 do
> begin
> MbxStartAtmLoop(MsgId);
> while MbxGetNextAtm(AtmId) != 0 do
> begin
> MbxGetAtmFileName(MsgId, AtmId, FileName);
> FtpSndAtm(MsgId, AtmId, FileName);
> SndOK(MsgId, AtmId);
> end
> SndOK(MsgId);
> end
> end
>
> // receive procedure
> if DoRcv then
> begin
> FtpRcvMsg("abc.dat");
> FtpDelete("abc.dat");
> end
>
> SetStatus(SUCCESS);
>
>
> Please share your valuable thoughts. Also advise for any changes in above
> script for archiving.
>
>
> Regards.
>
> [Non-text portions of this message have been removed]
>
------------------------------------
...
Please use the following Message Identifiers as your subject prefix: <SALES>,
<JOBS>, <LIST>, <TECH>, <MISC>, <EVENT>, <OFF-TOPIC>
Job postings are welcome, but for job postings or requests for work: <JOBS> IS
REQUIRED in the subject line as a prefix.Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/EDI-L/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/EDI-L/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
