以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上传文件，为啥提示失败  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88665)
--  作者：天蝉一线
--  发布时间：2016/8/7 10:35:00
--  上传文件，为啥提示失败
Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "ccgluser"
ftp1.Password = "5991404cwk"
ftp1.UTF8 = True
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim finfo As New FileInfo(f)
        If ftp1.Upload(f,"/文件" & finfo.Name.Replace(finfo.Extension, Format(Date.Now, "yyyyMMddHHmmss") & finfo.Extension)) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If
ftp1.Close

我在服务器上设置了“文件”夹共享，不过登陆的时候需要服务器本身设置的用户名和密码才能访问
--  作者：天蝉一线
--  发布时间：2016/8/7 10:50:00
--  
[10:49:32] 正在连接服务器
[10:49:43] FTP错误,System.Net.Sockets.SocketException: 由于连接方在一段时间后没有正确答复或连接的主机没有反应，连接尝试失败。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:49:43] 正在断开服务器
[10:49:43] FTP错误,System.Net.Sockets.SocketException: 无法立即完成一个非阻止性套接字操作。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:49:43] 连接服务器失败,
[10:49:46] 正在连接服务器
[10:49:57] FTP错误,System.Net.Sockets.SocketException: 由于连接方在一段时间后没有正确答复或连接的主机没有反应，连接尝试失败。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:49:57] 正在断开服务器
[10:49:57] FTP错误,System.Net.Sockets.SocketException: 无法立即完成一个非阻止性套接字操作。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:49:57] 连接服务器失败,
[10:50:08] 正在连接服务器
[10:50:18] FTP错误,System.Net.Sockets.SocketException: 由于连接方在一段时间后没有正确答复或连接的主机没有反应，连接尝试失败。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:50:18] 正在断开服务器
[10:50:18] FTP错误,System.Net.Sockets.SocketException: 无法立即完成一个非阻止性套接字操作。
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)
   在 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 size, SocketFlags socketFlags)
   在 Foxtable.FTPClient.O00_oO__()
[10:50:18] 连接服务器失败,
--  作者：大红袍
--  发布时间：2016/8/7 12:05:00
--  

 共享文件夹，不是ftp啊。

 

BeforeOpenProject加入代码，然后，直接访问文件夹就行啊　http://www.foxtable.com/webhelp/scr/0331.htm

 

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use  \\\\192.168.44.202\\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")