With  Inet1  
       If  Left(Trim(txtURl.Text),  6)  <>  "ftp://"  Then  
               .URL  =  "ftp://"  &  Trim(txtURl.Text)  
       End  If  
       If  txtPort.Text  <>  ""  Then  
               .RemotePort  =  CInt(Trim(txtPort.Text))  
       Else  
               .RemotePort  =  21  
       End  If  
       If  Trim(txtUID.Text)  <>  ""  Then  
       
               .UserName  =  Trim(txtUID.Text)  
               .Password  =  Trim(txtPWD.Text)  
       End  If  
               .AccessType  =  icNamedProxy  
               .Proxy  =  "FTP=192.168.66.30:7878"  
End  With  
帮忙看一下,代理设置对不对?谢谢!