WebFtpクラス UploadFileメソッド
ローカルファイルを指定してアップロードします。
使用法
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