你可以试试这个
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
将remoteUri的FTP地址说明:ftp://用户名:密码@服务器IP或域名即可
[
本帖最后由 xjianguo 于 2010-6-7 23:18 编辑 ]