upload ftp script vb.net

Sub ftpUploader()

        Dim timbangan As String = "192.168.234.55"

        Dim NamaFile As String = "d:\tmp\ScrpUp.phy"

        Dim PathFile As String = "d:\tmp"

        Dim fileData As String = "d:\tmp\a3.csv"

        Dim ftpUpload As String = "ftp -i -s:" & NamaFile & " " & timbangan

        Dim SWriter As StreamWriter

        Try

            'cek directorynya ada enggak, jika ga ada bikin directorynya

            If Not Directory.Exists(PathFile) Then

                Directory.CreateDirectory(PathFile)

            End If

            'cek file ftpnya ada ga, kalau ga ada bikin dulu

            If (Not File.Exists(NamaFile)) Then

                SWriter = File.CreateText(NamaFile)

                SWriter.WriteLine("admin")

                SWriter.WriteLine("admin")

                SWriter.WriteLine("lcd d:\tmp")

                SWriter.WriteLine("put a3.csv")

                SWriter.WriteLine("quit")

                SWriter.Close()

            End If

            'hapus dulu file a3.csv

            If File.Exists(fileData) Then

                ' eksekusi file ftp

                Shell(ftpUpload, AppWinStyle.NormalFocus)

                File.Delete(fileData)

            Else

                MsgBox("File tabel target tidak ditemukan" & Chr(13) & "Pengiriman Gagal")

            End If

        Catch ex As Exception

            MsgBox("Error Transmit")

        End Try

    End Sub


upload ftp script vb.net