FTP, Unzip And Execute- VB.NET

FTP, Unzip and Execute- VB.NET

FTP, Unzip and Execute- VB.NET Rate Topic:

#1 nmurendo

New D.I.C Head

Group: New Members
Posts: 7
Joined: 12-September 08

Dream Kudos: 0

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.

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

Was This Post Helpful? 0