利用VB.NET与SHGetFileInfo制作远程资源浏览器.docVIP

精品论文 参考文献 利用VB.NET与SHGetFileInfo制作远程资源浏览器 安国有 （松原职业技术学院） 摘要：无论是编程爱好者，还是单位的信息管理人员，都希望以人们熟知的windows资源浏览器形式调取远程，为此，本文主要介绍如何利用VB.NET和SHGetFileInfo函数实现其功能。 关键词：VB.NET SHGetFileInfo 远程资源浏览器 1 开发及调试的基本环境 安装windows server 2003服务器一台，工作站若干，其中一台工作安装VS2005，主要用于编写和调试程序。 2 程序涉及对象及基本设置 首先，在VS2005环境下建立一个解决方案文件(mybrow.sln)，然后创建一个窗体文件myfrm.vb，然后在窗体上按下面界面放置控件。 其主要控件设置及其功能说明如下表： 3　实现各项功能的程序模块 3.1 引用命名空间 Imports System.IO:Imports System.Text:Imports Microsoft Imports System.Net:Imports Seropservices 3.2 定义登录FTP服务器，所需窗体级对象及变量 Private urib As UriBuilder:Private dlyz As NetworkCredential Private myre As FtpWebRequest:Private pn As String Private hn As String:Private ph As String:Private un As String Private pd As String:Private upstr As Stream 3.3 定义连接远程FTP服务器函数 Private Sub loginserver() Try urib=New UriBuilder(ftp，hn，Integer.Parse(pnumber)，ph) myre=CType(FtpWebRequest.Create(urib.Uri)，FtpWebRequest) dlyz=NewNetworkCredential(un，pd):myre.Credentials=dlyz myre.KeepAlive=False:myre.Method=list Catch ex As WebException MsgBox(ex.Message) End Try End Sub 3.4 定义获得Ftp根目录下文件资源函数 Private Sub getroot() Try Dim myre As FtpWebResponse=CType(myre.GetResponse， FtpWebResponse) Dim mystream As Stream=myre.GetResponseStream() Dim mystrea As StreamReader=New StreamReader(mystream， Encoding.Default) Dim str As String=mystrea.ReadToEnd() Dim dirfilestr() As String = Split(str， vbCrLf) Dim dirfiletmp As String = For Each str1 As String In dirfilestr If VisualBasic.Left(str1， 1) = d Then dirfiletmp += str1 amp; vbCrLf End If Next For Each str1 As String In dirfilestr If VisualBasic.Left(str1， 1) lt;gt; d Then dirfiletmp += str1 amp; vbCrLf End If Next