Private Sub Command1_Click()
Inet1.Cancel '取消之前的操作
Inet1.URL = "ftp://192.168.1.33" '本地的FTP
Inet1.Protocol = icFTP
Inet1.RemoteHost = "192.168.1.33"
Inet1.RemotePort = 21
Inet1.UserName = "ABCD"
Inet1.Password = "1234"
Inet1.Execute Inet1.URL, "MKDIR 3455" '建 一個3455 的檔案夾
Dim RIGHT1 As Boolean
RIGHT1 = Inet1.StillExecuting
Do While RIGHT1
RIGHT1 = Inet1.StillExecuting
DoEvents
Loop
end sub
這樣建是可以建了.但有幾個問題.
1.如何判斷 一個檔案夾是否存在? 我現在是不管存不存在都嘗建.是可以可以用,但有點不靠譜.
2.還有就是 "感覺很怪" 因為Execute是異步的.但目前找不到 這些異步狀態的處理方式.所以多按幾下這個BUTTON有時會報錯...
3.運行的有點慢,有時運行要幾秒才能完成.但其實192.168.1.33就是本機的IP,按理來說應該是瞬間就完成的.
4.我看了一下FTP服務端的連接報告,大概有10條的連接,全是本機的.但我執行
Execute "CLOSE" 有時報錯 有時又能用,估計是有個地方要做判斷. 請大家多多指教謝謝!
uj5u.com熱心網友回復：
str2是路徑If Dir(str2) <> "" Then
msgbox "存在"
End If
uj5u.com熱心網友回復：
用DIR的話,"c:\1.txt" 或者 "\\192.168.1.33\3.txt" 都是可以的
但"ftp://192.168.1.33/3.txt" 就會報錯.
uj5u.com熱心網友回復：
僅供參考
ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
Next
Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing
NetworkObject.RemoveNetworkDrive ServerShare, True, False
Set NetworkObject = Nothing
uj5u.com熱心網友回復：
Private Sub Command1_Click()
'Inet1.Cancel '異步操作要盡量執行完，否則狀態很難控制'
If Inet1.StillExecuting Then Exit Sub '防止重入'
...
End Sub
uj5u.com熱心網友回復：
原來 是用WIN XP 的檔案共享功能直接呼叫的.很方便.但現在 系統 加了幾臺電腦 變成超過了XP 的10個共享連接上限了.
所以"\\192.168.1.33\" 這種連接方法就不能用了.
所以才要改成FTP
至于為會什么不換成 SERVER2003什么的.見識個那些小企業老板的戰斗力就明白了.
uj5u.com熱心網友回復：
用的 還是 XP？竟然 沒用 服務器？
uj5u.com熱心網友回復：
XP有10個共享連接上限？改注冊表項能不能加多點？
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"MaxConnectionsPerServer"=dword:00000040
"MaxConnectionsPer1_0Server"=dword:00000040
uj5u.com熱心網友回復：
高手就是高手，學習，uj5u.com熱心網友回復：
MaxConnectionsPerServer貌似只是更改IE之類的連接數
如果是用網路共享檔案夾 訪問
如"\\192.168.1.33"
之類的東西的話.
超過10部電腦 就會提示達到上限.
查了N多地方都沒解決方案.算是XP的一個不能更改的東西了.
實在不行只能改裝個SERVER 2003了.
uj5u.com熱心網友回復：
何必開這么多共享檔案夾。指定一臺機器一個目錄共享即可，下面按需要再分子目錄。
既然都用到共享檔案夾了，當然是按照可信任的前提設計的。
uj5u.com熱心網友回復：
查看我上傳這個資源，簡單幾句代碼可以實作一個ftp上傳下載工具，你參考下，可以列舉的http://download.csdn.net/detail/nanfei01055/1841290
uj5u.com熱心網友回復：
這個程式提供了進度事件介面，可以自己寫進度轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115372.html
標籤：VB基礎類
下一篇：快速排序？