Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim remoteUri As String = "ftp://xjg:xjg@192.168.0.11/a.txt"
Dim fileName As String = () + "\BarScript\Org.txt"
Dim wc As New
wc = New
Try
wc.DownloadFile(remoteUri, fileName)
Catch ex As Exception
MsgBox("此机型的打印模板文件不存在,请联系工程师处理!")
End Try
End Sub