在线结贴,菜鸟超级简单送分问题.

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

注意变量的作用域：应该这样：
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 2

补充一句:上面的付值在
Private Sub Command1_Click()
...
End Sub
外面,出现Invalid outside procedure如果将付值放到
Private Sub Command1_Click()
...
End Sub
内的话,出现运行时间错误"35752","URL is malformed"
URL畸形错误.

Answer 3

rainstormmaster(rainstormmaster) 大侠,按照您的改了马上就通过了,谢谢您啊