NETCF开发之文件与目录（6）

最新推荐文章于 2007-09-29 22:10:00 发布

iteye_3619

最新推荐文章于 2007-09-29 22:10:00 发布

阅读量123

点赞数

文章标签： EXT F# Windows UP

获得系统文件夹信息

在.NET Compact Framework应用程序中调用SHGetSpecialFolderPath函数比较麻烦，下面就介绍该函数的使用方法。为了让SHGetSpecialFolderPath函数更加容易使用，可以建立一个模块，在模块中加入常用该函数的声明，然后在开发Pocket PC应用程序时使用。

调用SHGetSpecialFolderPath函数首先要为nFolder参数定义CSIDL值。清单11-1给出了CSIDL值的声明。

清单11-1：nFolder参数的可选CSIDL值

<group id="_x0000_s1044" style="WIDTH: 414pt; HEIGHT: 148.2pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,2584"><lock v:ext="edit" aspectratio="t"></lock><shapetype id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"></path><lock v:ext="edit" aspectratio="t"></lock></shapetype><shape id="_x0000_s1045" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 2584px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1046" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 2584px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1046"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Enum ceFolders As Integer DESKTOP = 0 ' \My Documents PROGRAMS = 2 ' \Windows\”开始”菜单\程序 PERSONAL = 5 ' \My Documents FAVORITES = 6 ' \Windows\Favorites STARTUP = 7 ' \Windows\启动 STARTMENU = &HB ' \Windows\Start Menu FONTS = &H14 ' \Windows\Fonts End Enum </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

其次是增加如清单11-2所示的SHGetSpecialFolderPath函数声明。该声明需要增加到模型的声明部分。

清单11-2：SHGetSpecialFolderPath函数声明

<group id="_x0000_s1041" style="WIDTH: 414pt; HEIGHT: 117pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,2040"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1042" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 2040px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1043" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 2040px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1043"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> <System.Runtime.InteropServices.DllImport("coredll.dll")> _ Private Function SHGetSpecialFolderPath( _ ByVal hwndOwner As Integer, _ ByVal lpszPath As String, _ ByVal nFolder As ceFolders, _ ByVal fCreate As Boolean) As Boolean End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

封装SHGetSpecialFolderPath函数

在.NET Compact Framework应用程序中调用SHGetSpecialFolderPath函数比较麻烦，最好的办法就是对SHGetSpecialFolderPath函数进行封装。这里使用GetSpecialFolderPath函数来进行封装。GetSpecialFolderPath函数直接接收MyCSIDL参数，返回对应的系统文件夹路径。GetSpecialFolderPath函数如清单11-3所示。

清单11-3：GetSpecialFolderPath封装函数

<group id="_x0000_s1038" style="WIDTH: 414pt; HEIGHT: 257.4pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,4488"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1039" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 4488px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1040" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 4488px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1040"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Function GetSpecialFolderPath(ByVal MyCSIDL As ceFolders) As String Dim strWorkingPath As String = New String(" "c, 260) Dim intEndOfPath As Integer Try SHGetSpecialFolderPath(0, strWorkingPath, MyCSIDL, False) intEndOfPath = strWorkingPath.IndexOf(Chr(0)) If intEndOfPath > -1 Then strWorkingPath = strWorkingPath.Substring(0, intEndOfPath) End If Catch ex As Exception strWorkingPath = ex.Message End Try Return strWorkingPath End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

在清单11-3里，首先为返回系统文件夹的路径开辟260个字符的内存缓冲区。当SHGetSpecialFolderPath函数返回的时候，接收的路径存储在字符串的左端，以空字符(ASCII 0)结尾。

GetSpecialFolderPath函数简化了SHGetSpecialFolderPath函数的调用。以下是接收Personal、Programs、Start Menu和Startup系统文件夹的示例。

得到Personal系统文件夹

GetPersonalFolder函数如清单11-4所示，直接传递PERSONAL数值给GetSpecialFolderPath函数，返回Personal系统文件夹路径。

清单11-4：GetPersonalFolder函数

<group id="_x0000_s1035" style="WIDTH: 414pt; HEIGHT: 70.2pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,1224"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1036" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1037" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1037"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Function GetPersonalFolder() As String ' 返回 \My Documents. Return GetSpecialFolderPath(ceFolders.PERSONAL) End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

得到Programs系统文件夹

GetProgramFolder函数如清单11-5所示，直接传递PROGRAMS数值给GetSpecialFolderPath函数，返回Programs系统文件夹路径。

清单11-5：GetProgramFolder函数

<group id="_x0000_s1032" style="WIDTH: 414pt; HEIGHT: 70.2pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,1224"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1033" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1034" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1034"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Function GetProgramsFolder() As String ' 返回 \Windows\Start Menu\Programs. Return GetSpecialFolderPath(ceFolders. PROGRAMS) End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

获得Start Menu 系统文件夹

GetStartMenuFolder函数如清单11-6所示，直接传递STARTMENU数值给GetSpecialFolderPath函数，返回StartMenu系统文件夹路径。

清单11-6：GetStartMenuFolder函数

<group id="_x0000_s1029" style="WIDTH: 414pt; HEIGHT: 70.2pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,1224"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1030" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1031" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1031"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Function GetStartMenuFolder() As String '返回 \Windows\Start Menu. Return GetSpecialFolderPath(ceFolders. STARTMENU) End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

获得Start up特定系统夹

GetStartupFolder函数如清单11-7所示，直接传递STARTUP数值给GetSpecialFolderPath函数，返回Startup系统文件夹路径。

清单11-7：GetStartupFolder函数

<group id="_x0000_s1026" style="WIDTH: 414pt; HEIGHT: 70.2pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" editas="canvas" coordorigin="2526,7642" coordsize="7200,1224"><lock v:ext="edit" aspectratio="t"></lock><shape id="_x0000_s1027" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:extrusionok="t" o:connecttype="none"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1028" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 1224px" fillcolor="#eaeaea" strokecolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1028"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> Public Function GetStartupFolder() As String '返回 \Windows\Startup. Return GetSpecialFolderPath(ceFolders. STARTUP) End Function </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

iteye_3619

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
NETCF开发之文件与目录（6）

获得系统文件夹信息在.NET Compact Framework应用程序中调用SHGetSpecialFolderPath函数比较麻烦，下面就介绍该函数的使用方法。为了让SHGetSpecialFolderPath函数更加容易使用，可以建立一个模块，在模块中加入常用该函数的声明，然后在开发Pocket PC应用程序时使用。调用SHGetSpecialFolderPath函数首先要为nFol...
复制链接

扫一扫