Dim instance As WebFtp Dim filePathName As String Dim returnValue As Integer '成功した場合はアップロードしたバイト数。失敗した場合は-1 returnValue = instance.UploadFile(filePathName)
'WebFtpクラス UploadFileメソッド Imports System.Windows.Forms Public Class AddIn Public Sub AddIn_Start() Dim wf As WebFtp = New WebFtp() wf.Host = "ftp.sample.jp" wf.Username = "sampleuser" wf.Password = "passxxx" wf.Directory = "public_html/data" wf.RemoteFilename = "test.txt" wf.Pasv = True Dim result As Integer = wf.UploadFile("D:\tmp\test.txt") If result = -1 Then MessageBox.Show("FTPアップロード失敗しました") Else MessageBox.Show("FTPアップロード成功しました:" & result & "Byte") End If End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ