Rename files in directory ftp

vilian · Post by **vilian** » Fri Aug 25, 2006 7:39 pm

Hi,

I use class TFTP/TFTPFILE of the FWH and I am needing to rename files in directory ftp. How I can make this?

Post by **Antonio Linares** » Sat Aug 26, 2006 6:55 am

Vilian,

Please add this function to source\winapi\wininet.prg:

DLL32 FUNCTION FtpRenameFile( hFTP AS LONG, cOldFileName AS LPSTR, cNewFileName AS LPSTR ) ;
AS BOOL PASCAL ;
FROM "FtpRenameFileA" LIB hWinINet

And add this Method to Class TFtp:

METHOD RenameFile( cOldFileName, cNewFileName ) CLASS TFTP

return If( ::hFTP != nil, FtpRenameFile( ::hFTP, cOldFileName, cNewFileName ), .f. )

vilian · Post by **vilian** » Sat Aug 26, 2006 1:46 pm

Thanks antonio.

vilian · Post by **vilian** » Mon Aug 28, 2006 11:57 am

Hi Antonio,

Already I tried to use oFtp:RenameFile() informing the way, without informing, but I do not obtain to rename archives. You can help me?

Post by **Antonio Linares** » Mon Aug 28, 2006 12:13 pm

Vilian,

Please do a MsgInfo( oFTP:RenameFile( ... ) ) and lets check the returned value.

vilian · Post by **vilian** » Mon Aug 28, 2006 12:17 pm

Antonio,

It´s returned value .F.

Post by **Antonio Linares** » Mon Aug 28, 2006 2:23 pm

Vilian,

Does the FTP user have permit to rename files ?

vilian · Post by **vilian** » Mon Aug 28, 2006 5:56 pm

Hi Antonio,

I have total access to directory ftp. I execute the command thus:

oFTP:RenameFile(;
"/ premierefilmes/web/txts/bilhetes/teste.old", "teste.txt")

Also already I tested thus:

oFTP:RenameFile(;
"/premierefilmes/web/txts/bilhetes/teste.old",;
"/premierefilmes/web/txts/bilhetes/teste.txt")

vilian · Post by **vilian** » Tue Aug 29, 2006 12:20 am

Hi Antonio,

The problem with the Rename command, is that it so changes the name of archives in the current directory, or either, that to move for the directory where is located the archive before executing the Rename command.

It will be that in the WinINet.dll we have a command equivalent to the Cd() of fivewin?

Post by **Antonio Linares** » Tue Aug 29, 2006 7:53 am

Vilian,

Add this to source\winapi\wininet.prg:

Code: Select all

DLL32 FUNCTION FtpSetCurrentDirectory( hFTP AS LONG, cDirName AS LPSTR ) ;
                              AS BOOL PASCAL ;
                              FROM "FtpSetCurrentDirectoryA" LIB hWinINet

And this to Class TFtp:

Code: Select all

   METHOD SetCurrentDirectory( cDirName ) INLINE ;
            FtpSetCurrentDirectory( ::hFTP, cDirName )

vilian · Post by **vilian** » Tue Aug 29, 2006 11:11 am

Antonio,

Thanks for the evolution.