Database Search

TechHome

Samples from Users

• !!NEWSFLASH!!
• !Limitations of the WinInet FTP Functions
• !List of Win32 Error Codes
• 12003 ERROR_INTERNET_EXTENDED_ERROR
• 12007 Error
• 12163 error trying to trying to open an FTP session
• Active vs Passive FTP Connections
• Allowing User to Accept Cookies
• Ascii vs Binary FTP Transfers
• Automating Web forms with Cookies
• Can WinInet Handle Framed Pages
• Change Phone Number of Connectiod-Ras entry
• Check for IE4
• Check if a File has been Modified on Web Server
• Check if FTP File Exists
• Check if iUrlOpen returns what your expecting
• Cookies Wont Go Through
• Delete Temporary Internet Files Cache
• Dialog Progress Bar not Working
• Download a Message directly to a Binary buffer
• Embed User Id and Password in URL
• Error 12045 Invalid Certificate
• Error 307 File Access Failed
• Error 321 iFtpFindNext failed
• Error code 632 on WinInet dial-up
• ERROR with iOptionSet
• FTP Directory Exist
• FTP File Exist
• Ftp Functions and OpenVms
• Ftp Issue with Large File Transfers
• FTP Keep Alive
• FTP Proxy Server and Passive Transfer
• FTP SSL
• FtpListFileNames UDF
• Get Wininet Error Description String
• Get Real Internet Address
• Get WinInet Error Description String
• Getting ERROR on iHttpOpen with HTTPS
• Handle Http Redirect
• How to Specifiy HTTP User Agent
• How to use iGetConState
• How to Use iHttpOpen - Do a Post - and Grab HTML
• HTTP and WinInet - An Opus
• HTTPDownload 1.4
• iBegin and Firewalls
• IE4 Dlls needed for Wininet Extender on 95
• iFtpCmd and MDTM command
• iFtpCmd and Quote Site
• iFtpCmd APPE Causes iWriteData to Crash using IE 7
• iFtpCmd APPE Example
• iFtpCmd Issues
• iFtpCmd RETR Crash on Windows 7 32-bit WinInet Only
• iFtpDirMake Error 318
• iFTPFileSize 300 Error FileOpen Failed
• iFtpFindInit Memory Leak
• iFtpFindInit Returns Zero
• iFtpFindInit Wildcards
• iFtpFindNext Problem with Date
• iFtpGet Newer Files Only
• iFtpGet to get INI file
• iFtpGet Wininet Error 12031
• iFtpPut Error 12002 ERROR_INTERNET_TIMEOUT
• iFtpPut Error 12003
• iFtpPut to Unix Server
• iGetConState Return Values
• iGetConState Returns False
• iGetConState(0) Returns 1 for No Connection
• iGetLastError Always Returns 2 with IE5
• iHostConnect and Return Codes
• iHostConnect Error 65535
• iHttpInit and 401 Error
• iHttpOpen Error 406
• iHTTPOpen Error Message 12044 ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED
• iHTTPOpen Not Returning 404
• Installation of a Certificate
• InternetCookieSetEx and InternetCookieGetEx
• iOptionSet Error
• Latitude and Longitude of An Address
• Logfile of FTP Session
• Make a WHOIS Request
• Multiple FTP Sessions
• Non Standard Port
• Post HTML Problem
• Print a Web Page
• Progress bar during HTTP download
• Removing Empty Directories with FTP
• Require Certificate for HTTPS Downloads
• Return Info on Web Server
• Sample code - Weather Watch
• Secure FTP Issues
• Select Links That Contain Java Script Code
• Syncronize FTP
• UrlEncode of Hebrew characters
• Website Forms with Viewstate and Eventvalidation
• Wininet and Cookies
• WinInet and JavaScript
• WinInet and OpenVMS Problem
• WinInet Errors
• WinInet Not Supported for Use in Services
• Yahoo Signin Form

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

iFtpGet Newer Files Only

;UNDEBUGGED - Use at your own risk
AddExtender("WWINT44I.DLL")
ftpserver = "ftp.windowware.com"
uid = "anonymous"
pswd = "anonymous"
ftpdir = "wwwftp/wb01/"
localdir = "c:\temp\FTP_Test\"  
filetype = "*.pdf" ;GET ONLY PDF FILES!!!!!!!!!!!

If !DirExist(localdir) then DirMake(localdir)

;initalize variables
tophandle=iBegin(0,"","")
conhandle=iHostConnect(tophandle,ftpserver,@FTP, uid,pswd)
if conhandle==0
   message("ERROR","Unable to connect to host")
   exit
endif

handle=iFtpFindInit(conhandle,ftpdir,filetype,@False,@False) 
if handle==0
   message("ERROR","iFtpFindInit FAILED")
   ;Free handles
   iClose(conhandle)
   iClose(tophandle)
   exit
endif

While 1
   ftpfiledata = iFtpFindNext(@True)
   if ftpfiledata=="" 
      break
   endif
   ftpfilename = itemextract(1,ftpfiledata,@Tab)
   ftplastwrite =  itemextract(6,ftpfiledata,@Tab);extracts last write time
   targfilename=Filemapname(ftpfilename,localdir)

   ;Check if file exists in local directory
   lochandle=iLocFindInit(localdir,ftpfilename,@FALSE)
   if !lochandle
      ;File doesn't exist locally so FTP GET the file
      iFtpGet(conhandle,ftpfilename,targfilename,0,@BINARY, @TRUE)
      if getfile==0  
         message("iFtpGet Failed",StrCat("File ",ftpfilename, @Crlf, "iGetLastError ",iGetLastError(),@Crlf,"iGetResponse ",iGetResponse())
         ;Free handles
         iClose(handle)
         iClose(conhandle)
         iClose(tophandle)
         exit
      endif 
      continue ; move to next file
   endif   

   ;File exists locally then check date
   localfile=iLocFindNext(@true)
   locfilename = itemextract(1,ftpfiledata,@Tab)
   loclastwrite =  itemextract(6,ftpfiledata,@Tab);extracts last write time

   ;iFTPGET the remote file if local file is older or same data as FTP file
   ;if loclastwrite <= ftplastwrite 
   ;
   ;or
   ;
   ;iFTPGET the remote file ONLY if local file is older
   if loclastwrite < ftplastwrite 
      getfile = iFtpGet(conhandle,ftpfilename,targfilename,0,@BINARY, @TRUE)
      if getfile==0  
         message("iFtpGet Failed",StrCat("File ",ftpfilename, @Crlf, "iGetLastError ",iGetLastError(),@Crlf,"iGetResponse ",iGetResponse())
         ;Free handles
         iClose(handle)
         iClose(conhandle)
         iClose(tophandle)
         exit
      endif 
    endif  
 
    iClose(lochandle)
Endwhile

iClose(handle)
iClose(conhandle)
iClose(tophandle)
exit 

Article ID:   W16890

File Created: 2007:07:03:14:26:44

Last Updated: 2007:07:03:14:26:44