Ephyteac

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) ...

Imports System.IO Sub ftpDownloader()         Dim timbangan As String = "192.168.234.55"         Dim NamaFile As String = "d:\tmp\ScrpDw.phy"         Dim PathFile As String = "d:\tmp"         Dim fileData As String = "d:\tmp\a4.csv"         Dim ftpDownload 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.Creat...