Option Explicit
Public success As Long
Private Sub Form_Load()
Dim i As String
Dim j As String
Dim k As String
On Error GoTo ErrH
Inte_Pro
Unzip_Files
Execute_Files
Debug.Print "Finished download"
Unload Me
Exit Sub
ErrH:
  MsgBox Err.Description & vbCr & Err.Source
Exit Sub
End Sub
Public Sub Execute_Files()
On Error GoTo ErrH
Dim RetVal
RetVal = Shell(App.Path & "\RouteSmsSMPPClient.exe", 1)
Exit Sub
ErrH:
  MsgBox Err.Description & vbCr & Err.Source
Exit Sub
End Sub
Public Sub Unzip_Files()
On Error GoTo ErrH
        ZIPLight1.ZipFileName = App.Path & "\RouteSmsSMPPClient.zip"
        ZIPLight1.ExtractDirectory = App.Path
        ZIPLight1.FilesToProcess = "*"
        ZIPLight1.Extract
        Exit Sub
ErrH:
  MsgBox Err.Description & vbCr & Err.Source
Exit Sub
End Sub
Public Sub Inte_Pro()
Dim RemoteFile, LocalFile
    RemoteFile = "RouteSmsSMPPClient.zip"
    Form1.Inet1.URL = "ftp://192.168.1.14/"
    'Form1.Inet1.URL = "ftp://serv13:21/FTPFiles/"
    Form1.Inet1.Execute , "Get " & RemoteFile & " " & App.Path & "\" & RemoteFile
      
End Sub