FiveTech Software tech support forums

... .F. ELSE cBuffer := Space( 6400 ) nBufSize := 6400 SysRefresh() oFile := TFtpFile():New( cRemote, oFTP ) IF Empty(oFile) RETURN .F. ELSE oFile:OpenWrite() FSeek( hSource, 0, 0 ) nTotal := 0 DO WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 nFeito := oFile:Write( SubStr( cBuffer, ...

... .F. ELSE cBuffer := Space( 6400 ) nBufSize := 6400 SysRefresh() oFile := TFtpFile ():New( cRemote, oFTP ) IF Empty(oFile) RETURN .F. ELSE oFile:OpenWrite() FSeek( hSource, 0, 0 ) nTotal := 0 DO WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 nFeito := oFile:Write( SubStr( cBuffer, ...

... FClose( hSource ) SysRefresh() next for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 SysRefresh() while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, ...