zmagic
12-04-2013, 08:45 AM
Hello,
I got this script from VBAX Express Forum thread, which downloads particular files from FTP Server to local disk, but I need help for downloading the specified directory / folder automatically.
In my case the files in the FTP directory {/database : name of directory}are updated at night i want the VBA code to download automatically the directory and it contents after the close of session file is delivered in FTP directory. The session close file is 4_04122013.ets which is 0 B wherein 4 is the flag for particular types of files settlement, then followed by current date and extension. Once this session closure file is updated in the directory then this VBA codes to start downloading the directory from FTP Server to my Local Disk. [D:\FTP]
Can you please, please help?
Option Explicit
' Open the Internet object
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
' Connect to the network
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
' Get a file using FTP
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
' Send a file using FTP
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
' Close the Internet object
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Sub GetIMG_XML()
' I've commented out the uninteresting MsgBox lines; they show long (and meaningless)numbers.
Dim AgentStr As String
Dim AccessTypeLong As Long
Dim ProxyNameStr As String
Dim ProxyBypassStr As String
Dim FlagsLong As Long
Dim InternetSessionLong As Long
Dim ServerNameStr As String
Dim ServerPortInt As Integer
Dim UserNameStr As String
Dim PasswordStr As String
Dim ServiceLong As Long
Dim ContextLong As Long
Dim FTPSessionLong As Long
Dim RemoteFileStr As String
Dim NewFileStr As String
Dim FailIfExistsBool As Boolean
Dim FlagsAndAttributesLong As Long
Dim SomeThingLong As Long
Dim MyInternetHandleLong As Long
Dim MyFTPHandleLong As Long
Dim SomeInteger As Integer
Dim FTPSuccessBool As Boolean ' Did the FTP download work?
' ** Call INTERNET OPEN first **
AgentStr = "FTP Download" ' can be whatever
AccessTypeLong = 0 ' zero appears to work fine
ProxyNameStr = "" ' nul works fine here
ProxyBypassStr = "" ' nul works fine here
FlagsLong = 0 ' zero appears to work fine
MyInternetHandleLong = InternetOpen(AgentStr, AccessTypeLong, ProxyNameStr,
ProxyBypassStr,FlagsLong)
' MsgBox MyInternetHandleLong
' ** Call Internet CONNECT next **
' The directory I want to get is at ftp://xxx.xxx.xxx.xxx in directory /database
'having .img '& .xml files
with current date.
'MyInternetHandleLong is obtained above
ServerNameStr = "xxx.xxx.xxx.xxx" ' address of the FTP server, WITHOUT the "ftp://" part
ServerPortInt = 21 ' default FTP port
UserNameStr = "zmagic"
PasswordStr = "password8" ' nul is the default
ServiceLong = 1 ' this for the FTP service (2 = gopher, 3 = http)
FlagsLong = 0 ' 0 appears to work fine here
ContextLong = 0 ' 0 appears to work fine here
MyFTPHandleLong = InternetConnect(MyInternetHandleLong, ServerNameStr, ServerPortInt,
UserNameStr, PasswordStr, ServiceLong, FlagsLong, ContextLong)
' MsgBox "My FTP handle = " & MyFTPHandleLong
' (this is NOT the same value as MyInternetHandle, above)
' ** Call FTP Get File next **
' MyFTPHandleLong is obtained above
RemoteFileStr = "/database/*" 'directory
NewFileStr = "D:\FTP\" ' file name on MY system
FailIfExistsBool = False ' should NOT fail if file already exists on MY computer....HOWEVER,
' if the file does exist, the FTP DOES fail. Don't know about this. Short answer:
' the target file should NOT exist on my computer before calling this routine!
FlagsAndAttributesLong = 128 ' Normal file, no special flags set.
FlagsLong = 2 ' FTP Transfer Type Binary (the default)
ContextLong = 0 ' apparently not required.
FTPSuccessBool = FtpGetFile(MyFTPHandleLong, RemoteFileStr, NewFileStr, FailIfExistsBool,
FlagsAndAttributesLong, FlagsLong, ContextLong)
MsgBox "FTP Success = " & FTPSuccessBool
' ** Finally, close the connection **
SomeInteger = InternetCloseHandle(MyInternetHandleLong)
' MsgBox SomeInteger
' Seems to return "1"
End Sub
I got this script from VBAX Express Forum thread, which downloads particular files from FTP Server to local disk, but I need help for downloading the specified directory / folder automatically.
In my case the files in the FTP directory {/database : name of directory}are updated at night i want the VBA code to download automatically the directory and it contents after the close of session file is delivered in FTP directory. The session close file is 4_04122013.ets which is 0 B wherein 4 is the flag for particular types of files settlement, then followed by current date and extension. Once this session closure file is updated in the directory then this VBA codes to start downloading the directory from FTP Server to my Local Disk. [D:\FTP]
Can you please, please help?
Option Explicit
' Open the Internet object
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
' Connect to the network
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
' Get a file using FTP
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
' Send a file using FTP
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
' Close the Internet object
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Sub GetIMG_XML()
' I've commented out the uninteresting MsgBox lines; they show long (and meaningless)numbers.
Dim AgentStr As String
Dim AccessTypeLong As Long
Dim ProxyNameStr As String
Dim ProxyBypassStr As String
Dim FlagsLong As Long
Dim InternetSessionLong As Long
Dim ServerNameStr As String
Dim ServerPortInt As Integer
Dim UserNameStr As String
Dim PasswordStr As String
Dim ServiceLong As Long
Dim ContextLong As Long
Dim FTPSessionLong As Long
Dim RemoteFileStr As String
Dim NewFileStr As String
Dim FailIfExistsBool As Boolean
Dim FlagsAndAttributesLong As Long
Dim SomeThingLong As Long
Dim MyInternetHandleLong As Long
Dim MyFTPHandleLong As Long
Dim SomeInteger As Integer
Dim FTPSuccessBool As Boolean ' Did the FTP download work?
' ** Call INTERNET OPEN first **
AgentStr = "FTP Download" ' can be whatever
AccessTypeLong = 0 ' zero appears to work fine
ProxyNameStr = "" ' nul works fine here
ProxyBypassStr = "" ' nul works fine here
FlagsLong = 0 ' zero appears to work fine
MyInternetHandleLong = InternetOpen(AgentStr, AccessTypeLong, ProxyNameStr,
ProxyBypassStr,FlagsLong)
' MsgBox MyInternetHandleLong
' ** Call Internet CONNECT next **
' The directory I want to get is at ftp://xxx.xxx.xxx.xxx in directory /database
'having .img '& .xml files
with current date.
'MyInternetHandleLong is obtained above
ServerNameStr = "xxx.xxx.xxx.xxx" ' address of the FTP server, WITHOUT the "ftp://" part
ServerPortInt = 21 ' default FTP port
UserNameStr = "zmagic"
PasswordStr = "password8" ' nul is the default
ServiceLong = 1 ' this for the FTP service (2 = gopher, 3 = http)
FlagsLong = 0 ' 0 appears to work fine here
ContextLong = 0 ' 0 appears to work fine here
MyFTPHandleLong = InternetConnect(MyInternetHandleLong, ServerNameStr, ServerPortInt,
UserNameStr, PasswordStr, ServiceLong, FlagsLong, ContextLong)
' MsgBox "My FTP handle = " & MyFTPHandleLong
' (this is NOT the same value as MyInternetHandle, above)
' ** Call FTP Get File next **
' MyFTPHandleLong is obtained above
RemoteFileStr = "/database/*" 'directory
NewFileStr = "D:\FTP\" ' file name on MY system
FailIfExistsBool = False ' should NOT fail if file already exists on MY computer....HOWEVER,
' if the file does exist, the FTP DOES fail. Don't know about this. Short answer:
' the target file should NOT exist on my computer before calling this routine!
FlagsAndAttributesLong = 128 ' Normal file, no special flags set.
FlagsLong = 2 ' FTP Transfer Type Binary (the default)
ContextLong = 0 ' apparently not required.
FTPSuccessBool = FtpGetFile(MyFTPHandleLong, RemoteFileStr, NewFileStr, FailIfExistsBool,
FlagsAndAttributesLong, FlagsLong, ContextLong)
MsgBox "FTP Success = " & FTPSuccessBool
' ** Finally, close the connection **
SomeInteger = InternetCloseHandle(MyInternetHandleLong)
' MsgBox SomeInteger
' Seems to return "1"
End Sub