Question

vb:列举一个文件夹中所有文件名称

比如说文件夹c:\A\下面有文件a.dll,b.exe,c.sys以及一个子文件夹AA,子文件夹中也有文件d.txt

然后我想在label控件中显示
"c:\A\a.dll,c:\A\b.exe,c:\A\c.sys,c:\A\AA\d.txt"
该怎么办呢？
麻烦用代码解释一下
谢谢
还有就是怎样获得系统路径如C:\Windows或c:\windows.0

Answer 1

为了列举Windows的Namespace中的对象，我们不得不使用到IShellFolder接口。每个容器对象（通常是文件夹）都必须实现这个接口。
�
�以下是IShellFolder的声明 (ShlObj.pas):
�
�IShellFolder = interface(IUnknown)
���[SID_IShellFolder]
���function ParseDisplayName(hwndOwner: HWND;
����pbcReserved: Pointer; lpszDisplayName: POLESTR; out pchEaten: ULONG;
����out ppidl: PItemIDList; var dwAttributes: ULONG): HResult; stdcall;
���function EnumObjects(hwndOwner: HWND; grfFlags: DWORD;
����out EnumIDList: IEnumIDList): HResult; stdcall;
���function BindToObject(pidl: PItemIDList; pbcReserved: Pointer;
����const riid: TIID; out ppvOut): HResult; stdcall;
���function BindToStorage(pidl: PItemIDList; pbcReserved: Pointer;
����const riid: TIID; out ppvObj): HResult; stdcall;
���function CompareIDs(lParam: LPARAM;
����pidl1, pidl2: PItemIDList): HResult; stdcall;
���function CreateViewObject(hwndOwner: HWND; const riid: TIID;
����out ppvOut): HResult; stdcall;
���function GetAttributesOf(cidl: UINT; var apidl: PItemIDList;
����var rgfInOut: UINT): HResult; stdcall;
���function GetUIObjectOf(hwndOwner: HWND; cidl: UINT; var apidl: PItemIDList;
����const riid: TIID; prgfInOut: Pointer; out ppvOut): HResult; stdcall;
���function GetDisplayNameOf(pidl: PItemIDList; uFlags: DWORD;
����var lpName: TStrRet): HResult; stdcall;
���function SetNameOf(hwndOwner: HWND; pidl: PItemIDList; lpszName: POLEStr;
����uFlags: DWORD; var ppidlOut: PItemIDList): HResult; stdcall;
��end;
�
�主要的方法就是EnumObjects()和BindToObject()。前者用于列举当前文件夹中的对象，后者用于获取容器对象的IShellFolder接口。
�
�EnumObjects()返回一个IEnumIDList接口，用于遍历所有的对象。通过grfFlags参数，你可以控制列举的对象类型，这个参数可以是以下值或其组合：
�
���SHCONTF_FOLDERS = 32,���� // for shell browser
���SHCONTF_NONFOLDERS = 64,���// for default view
���SHCONTF_INCLUDEHIDDEN = 128,�// for hidden or system objects
�
�IEnumIDList的声明如下：
�
�IEnumIDList = interface(IUnknown)
���[SID_IEnumIDList]
���function Next(celt: ULONG; out rgelt: PItemIDList;
����var pceltFetched: ULONG): HResult; stdcall;
���function Skip(celt: ULONG): HResult; stdcall;
���function Reset: HResult; stdcall;
���function Clone(out ppenum: IEnumIDList): HResult; stdcall;
��end;
�
�Next()返回一个PIDL（对象标志符列表指针）数组，上至"celt"。"pceltFetched"保存获取的PIDL的数目。Skip()向前移动"celt"对象，而Reset()返回列举列表的最开始处。使用Clone()方法你可以得到一个与当前状态相同的IEnumIDList接口的拷贝，非常有用，例如你可以在列举的时候放置一个“书签”。
�
�这里是一个列举桌面上所有对象的例子：
�...
�var
��Desktop: IShellFolder
��EnumIDLIst: IEnumIDList;
��CurPidl: PItemIDLIst;
��Fetched: ULONG;
�begin
��if SHGetDesktopFolder(Desktop) <> NOERROR then
��begin
���if Desktop.EnumObjects(Handle, SHCONTF_FOLDERS, EnumIDList) = NOERROR then
���begin
���� // Retrieve objects one at a time...
���� while EnumIDList.Next(1, CurPidl, Fetched) = S_OK do
���� begin
����� ... // Add code here to do something with the objects
����� CoTaskMemFree(CurPidl); // Remember to free PIDLs!
���� end;
���end;
��end;
�end;
�
�要列举一个子文件夹的内容，我们必须获取它的IShellFodler接口。如果父文件夹已经包含了一个IShellFodler接口，而且ChildPidl包含一个有效的子文件夹的PIDL（例如用IEnumIDList.Next()返回的），我们可以这样做：
�
�var
��ChildFolder: IShellFolder;
�...
�if ParentFolder.BindToObject(ChildPidl, nil, IID_IShellFolder, pointer(ChildFolder)) <> NOERROR then
�begin
��with ChildFolder do
��begin
���// 使用新的IShellFolder接口做些事情...
��end;
�
�end;
�
�IShellFolder其余的方法用于操作对象：
�
�ParseDisplayName() 用于将一个显示名称（例如路径）翻译为对象标志符列表。
�
�CompareIDs() 判断两个文件对象或者文件夹的相对顺序，使用它们的对象标志符列表。
�
�GetAttributeOf() 获取一个或者多个文件对象或者子文件夹的属性。可以为以下值：
�
�SFGAO_CANCOPY 指定文件对象或者文件夹可以被复制
�SFGAO_CANDELETE 指定文件对象或者文件夹可以被删除
�SFGAO_CANLINK 可以给指定文件对象或者文件夹生成快捷方式
�SFGAO_CANMOVE 指定文件对象或者文件夹可以被移动
�SFGAO_CANRENAME 指定文件对象或者文件夹可以被重命名
�SFGAO_CAPABILITYMASK 性能(capability)标志位掩码
�SFGAO_DROPTARGET 指定文件对象或者文件夹是拖动目标(drop target)
�SFGAO_HASPROPSHEET 指定文件对象或者文件夹有属性页
�SFGAO_DISPLAYATTRMASK 显示属性掩码
�SFGAO_GHOSTED The 指定文件对象或者文件夹显示时应该使用虚图标
�SFGAO_LINK 指定文件对象是快捷方式
�SFGAO_READONLY 指定文件对象或者文件夹是只读的
�SFGAO_SHARE 指定文件夹是共享的
�SFGAO_CONTENTSMASK 内容属性掩码
�SFGAO_HASSUBFOLDER 指定文件夹含有子文件夹(因此，可以在Windows的Explorer的左边面板里展开
�SFGAO_FILESYSTEM 指定文件对象或者文件夹是系统文件的一部分
�SFGAO_FILESYSANCESTOR 指定文件夹包含一个或者多个系统文件夹
�SFGAO_FOLDER 指定对象是文件夹
�SFGAO_REMOVABLE 指定文件对象或者文件夹在可移动介质上（如软盘）
�
�例如，我们可以使用GetAttributeOf来选择对应的图标。
�
�GetDisplayNameOf()和SetName()获取或者设置对象名。
�
�注意，显示名是用一个不同的结构返回的：
�
�_STRRET = record
��� uType: UINT;�������{ One of the STRRET_* values }
��� case Integer of
���� 0: (pOleStr: LPWSTR);����������{ must be freed by caller�}
���� 1: (pStr: LPSTR);������������{ NOT USED }
���� 2: (uOffset: UINT);�����������{ Offset into SHITEMID (ANSI) }
���� 3: (cStr: array[0..MAX_PATH-1] of Char); { Buffer to fill in }
���end;
�
�uType告诉我们哪个字段保存了名称。注意：pOleStr必须由调用者释放