用户名：匿名用户
要用到inet控件。publicstrDataasstring'这段可以返回服务器中的第一级目录名，保存在strData中，如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。Inet1.E问答xecute
Inet1.URL,"dir"""&dirName&""""DoDoEventsLoopWhileInet1.StillExecuting
=TruemsgboxstrData'这段是进入目录中，要想获得服务器中所有的文件夹名，就可以用递规的办法来获得。Inet1.Execute
Inet1.URL,"cd"""&dirName&""""DoDoEventsLoopWhileInet1.StillExecuting
=TruePrivateSubInet1_StateChanged(ByValStateAsInteger)Selec苗养问夫tCaseStateCase1StatusBar1.Panels.Item(1).Text
="该控件正在查询所指定的主机的IP地址"Case2StatusBar1.Pan轮足第黑els.Item(1).Text
="该控件已成功地地短找到所指定的主机的IP地址"Case3StatusBar1.Panels.Item(1).Text
="该控件正在与主机连接"Case4StatusBar1.Panels.Item(1).Text
="该控件已与主机连接成功收费宪断刑士奏十建厂社"Case5StatusBar1.Panels.Item(1).Text
="该控件正在向主机发送请求"Case6StatusBar1.Panels.Item(1).Text
="该控件发送请求已成功"Case7StatusBar1.Panels.Item(1).Text
="该控件正在接收主机的响应"Case8StatusBar1.Panels.Item(1).Text
见刚客评温介关末="该控件已成功地接收到主机的响应"Case9StatusBar1.Panels.Ite短团m(1).Text
="该控件正在解除与主机的连接"Case10StatusBar1.Panels.Item(1).Text
="该控件已成功地与主机解除了连接"Case1势条态话或1MsgBox"与主机通讯时出现了错误",vbInfor选mation,"个人**"Case12DimvtDataAsVariantDimbDoneAsBooleanbDone=False'取得第一个块。vtData=Inet1.GetChunk(1024,icString)DoEventsDoWhileNot写创识志感切沙院想bDonestrData=strData&vtData'取得下一个块。vtData=Inet1.GetChunk(1024,icString)DoEventsIfLen(vtData)=0ThenbDone=True一受断限阿界管江激值迫EndIfLoopStatusBar1.Panels.Item(1).Text
="该请求已经完成，并且所有**均已接收测渐双好尔载损乐航到"CaseElseSt亚胡流atusBar1.Panels.Item(1).Text
=Inet1.ResponseCode
&":"&Inet1.ResponseInfo
EndSelectEndSub关于inet控件的祥细用法可以看msdn中的帮助。
