菜鸟超级简单送分问题,解决问题马上结贴.

Question

小弟先建了个工程,在里面加上Inet控件和按钮.
在按钮的单击事件中加入
Inet1.Execute "ftp://210.45.243.132", "get /pub/NetTools/Browser/IE6CHS/ie6.txt c:\test.txt"
可以在C盘下找到test.txt文件.
但是有个奇怪的问题:
如果先付值
fStrUrl = "ftp://210.45.243.132"
fStrSource = "/pub/NetTools/Browser/IE6CHS/ie6.txt"
fStrDest = "c:\test.txt"
再在按钮的单击事件中加入
Inet1.Execute fStrUrl, "GET" & fStrSource & " " & fStrDest
时就出错了,出错信息为:Invalid outside procedure
各位大侠帮忙!

Answer 1

Inet1.Execute fStrUrl, "GET" & fStrSource & " " & fStrDest
GET后面没有空格，改成Inet1.Execute fStrUrl, "GET " & fStrSource & " " & fStrDest

Answer 2

应该这样：
Private Sub Command2_Click()
    Dim fStrUrl As String, fStrSource As String, fStrDest As String
    fStrUrl = "ftp://210.45.243.132"
    fStrSource = "/pub/NetTools/Browser/IE6CHS/ie6.txt"
    fStrDest = "c:\mtest.txt"
    Inet1.Execute fStrUrl, "GET " & fStrSource & " " & fStrDestEnd Sub或者类似这样：
Dim fStrUrl As String, fStrSource As String, fStrDest As StringPrivate Sub Command2_Click()
    
    Inet1.Execute fStrUrl, "GET " & fStrSource & " " & fStrDestEnd SubPrivate Sub Form_Load()
    fStrUrl = "ftp://210.45.243.132"
    fStrSource = "/pub/NetTools/Browser/IE6CHS/ie6.txt"
    fStrDest = "c:\mtest.txt"
End Sub

Answer 3

谢谢rainstormmaster(rainstormmaster)大侠,接分啊