ftp上传后找不到文件
Private Sub Command1_Click()
Dim right1 As Boolean
CommonDialog1.ShowOpen
Inet1.URL = "ftp://219..."
Inet1.Protocol = icFTP
Inet1.RemoteHost = "219...."

Inet1.UserName = "..."
Inet1.Password = "..."
MsgBox "准备上传"
Inet1.Execute , "PUT " & CommonDialog1.FileName & " " & "/81/" & CommonDialog1.FileTitle
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
MsgBox "成功"
End Sub


代码如上，上传的文件到最后也弹出 成功了，但就是在web服务器中找不到这个文件。求解

[解决办法]
没错，又找不到。
仔细看下文件夹有没有对。
个人不喜欢Inet1.Execute，找个免费的FTP控件。
[解决办法]
要刷新，有个东西叫缓存
[解决办法]
这样行吗？
[code=VB]
With Inet1
.URL = "ftp://112.108.30.244/"
.UserName = "sa"
.Password = "1"
.Execute , "put c:\www\test.txt doc\t.txt" '返回该目录。
End With

code