ftp untuk download file vb.net

-
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.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("get a4.csv")
                SWriter.WriteLine("quit")
                SWriter.Close()
            End If

            'hapus dulu file a4.csv
            If File.Exists(fileData) Then
                File.Delete(fileData)
            End If

            ' eksekusi file ftp
            Shell(ftpDownload, AppWinStyle.NormalFocus)


        Catch ex As Exception
            MsgBox("Error Transmit")
        End Try



    End Sub
http://phy2012.blogspot.co.id/2017/03/upload-ftp-script-vbnet.html

Postingan populer dari blog ini

LCD 2x16 via ESP32

-
 Kalau menggunakan ESP32-S3 dengan konfigurasi: SDA → GPIO8 SCL → GPIO9 LCD 16x2 + modul I2C (PCF8574) Berikut contoh program sederhana di Arduino IDE untuk menampilkan: Hallo ESP32 1. Install Library Di Arduino IDE buka: Sketch → Include Library → Manage Libraries Install: hd44780 by Bill Perry Library ini lebih modern, lebih stabil, dan bisa otomatis mendeteksi alamat I2C. Cari di Library Manager: hd44780 Contoh programnya: #include <Wire.h> #include <hd44780.h> #include <hd44780ioClass/hd44780_I2Cexp.h> hd44780_I2Cexp lcd ; void setup () { Wire .begin( 8 , 9 ); lcd .begin( 16 , 2 ); lcd .backlight(); lcd .setCursor( 0 , 0 ); lcd .print( "Hallo" ); lcd .setCursor( 0 , 1 ); lcd .print( "ESP32" ); } void loop () { } Kelebihannya: Tidak perlu tahu alamat 0x27 atau 0x3F. Bisa mendeteksi alamat LCD otomatis. Sangat cocok untuk ESP32.
Baca selengkapnya

Perencanaan awal ESP32 S3 testing

-
  RTC DS1302 bukan perangkat I2C. DS1302 menggunakan antarmuka 3-wire serial , sehingga tidak bisa dipasang pada jalur SDA/SCL seperti LCD I2C. Jadi wiring-nya menjadi seperti ini. 1. LCD 16x2 I2C Misalkan kita memakai pin I2C yang umum pada ESP32-S3: LCD I2C ESP32-S3 VCC 5V (atau 3.3V jika modul mendukung) GND GND SDA GPIO 8 SCL GPIO 9 GPIO 8 dan GPIO 9 merupakan konfigurasi I2C yang umum digunakan pada banyak board ESP32-S3, meskipun sebenarnya ESP32-S3 dapat memetakan I2C ke hampir semua GPIO yang bebas. 2. RTC DS1302 DS1302 mempunyai pin: VCC GND CLK DAT (IO) RST/CE Contoh wiring: DS1302 ESP32-S3 VCC 3.3V GND GND CLK GPIO 4 DAT GPIO 5 RST/CE GPIO 6 P...
Baca selengkapnya

winsocket vb.net

-
Imports System.Net ' for IPAddress Imports System.Net.Sockets 'for TcpListener Module Module1     Sub Main()         Dim port As Integer 'this is the port number         Dim localAddr As IPAddress ' this is the IP address         Dim server As    TcpListener ' This is for the TCP/IP Protocol         Try             'define the two values for your Server             port = 1234             localAddr = IPAddress .Loopback 'loopbak = 127.0.0.1 = myself             'Create your server             server = New...
Baca selengkapnya