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
FTP, Unzip and Execute- VB.NET
Page 1 of 1
FTP, Unzip and Execute- VB.NET
#1
Posted 01 December 2008 - 05:33 AM
Can anyone good in .NET please convert this VB6 please. VB6 has post deployment errors for example where it says files are out of date. I need this for getting a named file from an ftp site, unzip it and run the executable.
Page 1 of 1

Start a new topic
Add Reply




MultiQuote


| 


