● [C++ Builder]目录处理函数 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Deny (DENY), 信区: Program
标  题: [C++ Builder]目录处理函数
发信站: 荔园晨风BBS站 (Sun Nov 11 23:25:25 2001), 转信

    在编程时,经常有一些针对目录的操作,如打开目录对话框选择一个目录,直接
创建多级目录,直接删除多级目录,判断某个目录是否存在等。本文就这些问题给出
编程实现方法，并给出详细的程序代码，供各位编程爱好者参考。

一、判断目录是否存在：

  C++ Builder中提供了检查文件是否存在的函数FileExists，但没有提供检查目
录是否存在的函数，我们可以用Windows API函数FindFirstFile实现这个功能。程
序实现如下：

设char *Dir为带判断的目录
bool Exist;                                            // 最后结果，表示
                                        目录是否存在
if(Dir[strlen(Dir)]=='\\')Dir[strlen(Dir)-1]='\0';    // 先删除最后的“
                                                                 \”
WIN32_FIND_DATA wfd;                                  // 查找
HANDLE hFind=FindFirstFile(Dir,&wfd);
if(hFind==INVALID_HANDLE_VALUE)Exist=false;            // 没有找到配备，
                                                        目录肯定不存在
else
{
    if(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) // 检查找到的结
                                                                果是否目录
        Exist=true;                                      // 是目录,目录
                                                                存在
    else
        Exist=false;                                    // 是目录,目录不
                                                                存在
    FindClose(hFind);
}

二、打开目录选择对话框选择一个目录：

  大多专业软件在要求输入目录的编辑框旁都放了一个按钮，点击后打开一个目录
窗口，很多编程爱好者也希望能掌握这个方法。实现这个功能要调用Windows API
函数SHBrowseForFolder，完整声明为WINSHELLAPI LPITEMIDLIST WINAPI
SHBrowseForFolder(LPBROWSEINFO lpbi)，返回一个ITEMIDLIST类型的指针，通过
这个指针调用函数SHGetPathFromIDList可以确定所选择的目录的全名称。入参为
BROWSEINFO结构的指针，这个结构较为复杂，成员如下所示：

HWND hwndOwner;        // 拥有对话框的窗口，可以设置为
Application->Handle
LPCITEMIDLIST pidlRoot; // ITEMIDLIST类型的指针,表示在哪个路径下选择，一
                                般可以设置为NULL
LPSTR pszDisplayName;  // 选择后，所选目录的名称(不包含父级目录)被拷贝到
                                这个指针指向的位置
LPCSTR lpszTitle;      // 作为标题显示在对话框中目录树的上面，可以根据实
                                际情况设置
UINT ulFlags;          // 标志位，有点复杂，一般设置为
BIF_RETURNONLYFSDIRS
BFFCALLBACK lpfn;      // 回调函数，一般不用，设置为NULL
LPARAM lParam;          // 预定义的对话框传递给回调函数的值
int iImage;            // 与所选目录相关联的图标在系统图标集合中的索引

可以看出，使用函数SHBrowseForFolder还真麻烦，普通爱好者掌握它确实有一定
的难度，现给出完整程序段如下：
#include <shlobj.h>                    // 必须包含的头文件
char SelectedDir[MAX_PATH];              // 最终结果
BROWSEINFO bi;                          // 入参
char FolderName[MAX_PATH];              // 所选目录名称，例如选择C:
\Windows\Font,则为Font
LPITEMIDLIST ItemID;                    // 所选目录的系统标志指针

memset(SelectedDir, 0, MAX_PATH);              // 初始化最终结果
memset(&bi, 0, sizeof(BROWSEINFO));    // 初始化入参所有数据
bi.hwndOwner = Application->Handle;
bi.pszDisplayName = FolderName;
bi.lpszTitle = "请选择目录";            // 改成自己希望的
bi.ulFlags=BIF_RETURNONLYFSDIRS;
ItemID = SHBrowseForFolder(&bi);      // 调用函数，打开目录选择对话框
if(ItemID)
{
    SHGetPathFromIDList(ItemID, SelectedDir);      // 获取所选目录的全名

    GlobalFree(ItemID);                      // 返回的ItemID占用了系统资
                                                源，不要忘了释放
}

三、直接建立多级目录：

  Windows API提供了建立目录的函数CreateDirectory，但是调用前要保证父目录
必须存在，否则会失败。其实，有时越级建立多级目录很有用，因为在建立目录特
别是建立多层目录时，层层加以判断会大大地增加程序的复杂程度。如何实现这个
功能呢？本人用递归方法设计了一个可以直接建立多级目录的函数，现说明如下，
供各位朋友参考。

bool MakeDirectoryEx(const AnsiString &P)  // 入参为打算创建的目录名,根
据操作结果返回"true"或"false"
{
    if(P.IsEmpty())return false;
    int len=P.Length();
    char *Path=P.c_str();
    if(Path[len-1]=='\\')
    {
        len--;
        Path[len]='\0';
    }                                      // 删除末尾的"\"
    AnsiString Dir=Path;
    // 分开父目录和本身目录名称
    AnsiString Parent;
    for(int i=len-1;i>0;i--)
    {
        if(Dir.IsPathDelimiter(i))
        {
            Parent=Dir.SubString(0,i);
            break;
        }
    }
    if(Parent.IsEmpty())return false; // 目录名称错误
    bool Ret=true;
    if(Parent.Length()>3)          // 如果长度小于3，表示为磁盘根目录
        Ret=DirectoryExistEx(Parent.c_str());// 检查父目录是否存在
    if(!Ret)Ret=MakeDirectoryEx(Parent);  // 父目录不存在,递归调用创建父
                                                目录
    if(Ret)                                        // 父目录存在,直接创
                                                        建目录
    {
        SECURITY_ATTRIBUTES sa;
        sa.nLength=sizeof(SECURITY_ATTRIBUTES);
        sa.lpSecurityDescriptor=NULL;
        sa.bInheritHandle=0;
        Ret=CreateDirectory(Path,&sa);
    }
    return Ret;
}
    可以看出基本方法是:
先检查父目录是否存在，这里用到的函数DirectoryExistEx可以按照前面介绍的方
法设计；
如果父目录存在，则直接创建目录,否则自我调用创建父目录。

四、直接删除整个目录：

  在DOS下有一个Deltree命令，用来删除整个目录，这是一个很有用的功能，可惜
，Windows API提供的函数RemoveDirectory只能删除控目录，就像DOS的RD命令一
样。编程实现这个功能同样需要递归方法，基本流程是：

查找目录下的所有文件和目录，即调用API函数FindFirstFile、FindNextFile(*.
*)
如果找到文件，则强制删除。所谓强制删除，即删除前先调用SetFileAttributes
把它的属性设置为Normal，然后调用DeleteFile删除它。
如果找到目录，则进行自我调用，即开始递归过程。
如果没有找到目录，即表示为控目录，调用RemoveDirectory直接删除。
具体程序代码如下：

bool DeleteDirectoryEx(const AnsiString &P)
{
    if(P.IsEmpty() || P.Length()<4)return false;        // 参数长度必须
                                大于3，即不能为磁盘根目录或空白
    int len=P.Length();
    char *Path=P.c_str();
    AnsiString Dir=Path;
    if(Path[len-1]!='\\')Dir=Dir+'\\';
    AnsiString Files=Dir+"*.*";
    WIN32_FIND_DATA wfd;
    HANDLE hFind=FindFirstFile(Files.c_str(),&wfd);
    bool Ret=true;
    AnsiString Tmp;
    if(hFind!=INVALID_HANDLE_VALUE)
    {
        bool bFind=true;
        while(bFind)
        {
            if(wfd.cFileName[0]!='.') // . ..
            {
                Tmp=Dir+wfd.cFileName;
                if(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
                { // 删除所有子目录
                    Ret=Ret&&DeleteDirectoryEx(Tmp.c_str(),false);
                }else
                { // 删除所有文件
                    SetFileAttributes(Tmp.c_str(),
                                FILE_ATTRIBUTE_NORMAL);
                    Ret=Ret&&DeleteFile(Tmp.c_str());
                }
            }
            bFind=FindNextFile(hFind,&wfd);
        }
        FindClose(hFind);
    }
    if(Ret)return RemoveDirectory(Path);
    return false;
}
完

--
╭⌒╮ ¤
╭ ╭ ⌒╮
╰ ----╯
///"/"/ 心情预报: 多云到少云,间中会头晕,有时会失魂....
                                                        OICQ:86395
        ftp://192.168.1.201/study/my document

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.1.201]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店