目录处理函数 8 e8 w# N; ~( S+ h$ O
编程语言:C++ Builder 作者:王行舟 7 \* ]+ `3 F7 s, n; z) w3 M# D2 J
在编程时,经常有一些针对目录的操作,如打开目录对话框选择一个目录,直接创建多级目录,直接删除多级目录,判断某个目录是否存在等。本文就这些问题给出编程实现方法,并给出详细的程序代码,供各位编程爱好者参考。
& c" q" q$ N" \) p, E一、判断目录是否存在:
$ R' y' I/ W9 _1 d9 I C++ Builder中提供了检查文件是否存在的函数FileExists,但没有提供检查目录是否存在的函数,我们可以用Windows API函数FindFirstFile实现这个功能。程序实现如下: . X/ g$ B Y: d% g* l, N
设char *Dir为带判断的目录
. L0 o2 Z/ A. |! E# l2 ?- N( y/ lbool Exist; // 最后结果,表示目录是否存在6 I, w/ N$ W! F+ @( H
if(Dir[strlen(Dir)]=='\\')Dir[strlen(Dir)-1]='\0'; // 先删除最后的“\”: F/ x% B, Z3 X
WIN32_FIND_DATA wfd; // 查找
9 l6 H" q$ t6 Z7 H' v0 O* d% sHANDLE hFind=FindFirstFile(Dir,&wfd);
- M9 E- d Y- O! y6 ?if(hFind==INVALID_HANDLE_VALUE)Exist=false; // 没有找到配备,目录肯定不存在0 m$ E4 `# n- n$ M# T( f6 Y; T& a
else2 A" c& A6 H# D- P
{
! M) G- _- I! h/ R8 x if(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) // 检查找到的结果是否目录
) v L# A( h* t9 o5 q& S, z% F- T. } Exist=true; // 是目录,目录存在3 Z( T$ z+ H$ b* s% e
else
, @: U' L" W9 @( f3 ~ Exist=false; // 是目录,目录不存在
+ Y, s9 b e U' w FindClose(hFind);
' U% `3 |* S! X* C+ L: ?}
$ I8 g9 S/ O" H" h1 K" e8 u, \0 N! q二、打开目录选择对话框选择一个目录: 3 { x% E% H$ C8 X& ?1 T" ]
大多专业软件在要求输入目录的编辑框旁都放了一个按钮,点击后打开一个目录窗口,很多编程爱好者也希望能掌握这个方法。实现这个功能要调用Windows API函数SHBrowseForFolder,完整声明为WINSHELLAPI LPITEMIDLIST WINAPI SHBrowseForFolder(LPBROWSEINFO lpbi),返回一个ITEMIDLIST类型的指针,通过这个指针调用函数SHGetPathFromIDList可以确定所选择的目录的全名称。入参为BROWSEINFO结构的指针,这个结构较为复杂,成员如下所示: , \0 H+ {& l) \ v
HWND hwndOwner; // 拥有对话框的窗口,可以设置为Application->Handle
7 G2 p3 O/ J( ~$ y! ~LPCITEMIDLIST pidlRoot; // ITEMIDLIST类型的指针,表示在哪个路径下选择,一般可以设置为NULL
% p/ J9 n: m! A N" eLPSTR pszDisplayName; // 选择后,所选目录的名称(不包含父级目录)被拷贝到这个指针指向的位置 3 r! ^4 {8 Z% }
LPCSTR lpszTitle; // 作为标题显示在对话框中目录树的上面,可以根据实际情况设置 ! e1 X6 B# w7 L
UINT ulFlags; // 标志位,有点复杂,一般设置为BIF_RETURNONLYFSDIRS
. g) n( l6 u& ]9 B; ]BFFCALLBACK lpfn; // 回调函数,一般不用,设置为NULL + X7 g! [0 r. ?' ]7 J' `0 D4 I
LPARAM lParam; // 预定义的对话框传递给回调函数的值; d* m+ _3 `* r4 T/ S
int iImage; // 与所选目录相关联的图标在系统图标集合中的索引
/ q% x. w7 n( e, o8 Y5 y, c0 B可以看出,使用函数SHBrowseForFolder还真麻烦,普通爱好者掌握它确实有一定的难度,现给出完整程序段如下: % g! A; Q, ]9 m2 y( `6 l
#include <shlobj.h> // 必须包含的头文件
3 q: v( ?. {5 F. j+ Wchar SelectedDir[MAX_PATH]; // 最终结果' r: E9 S6 s6 m% D
BROWSEINFO bi; // 入参0 P j3 i/ K' ?. o+ r
char FolderName[MAX_PATH]; // 所选目录名称,例如选择C:\Windows\Font,则为Font 5 J$ c+ y2 D' s6 e# e* f3 D/ j
LPITEMIDLIST ItemID; // 所选目录的系统标志指针 + @$ J3 E5 n, L0 n( J
memset(SelectedDir, 0, MAX_PATH); // 初始化最终结果+ n* J! N. ?( _3 l2 Q; M7 c! E
memset(&bi, 0, sizeof(BROWSEINFO)); // 初始化入参所有数据
6 Q9 s! B* U: hbi.hwndOwner = Application->Handle;
+ g8 E. \6 i' m" R% Z/ Q( Abi.pszDisplayName = FolderName;) o" l e* a9 Q6 B0 `
bi.lpszTitle = "请选择目录"; // 改成自己希望的
5 e( _" U8 l b8 _8 n! R$ \& vbi.ulFlags=BIF_RETURNONLYFSDIRS;
" B# z [) d! rItemID = SHBrowseForFolder(&bi); // 调用函数,打开目录选择对话框
6 q o% Z; n& p& g6 F- u, x% eif(ItemID)
# O4 y2 H, |+ P/ H% e( n) A, t{
9 F' o7 u- |! _5 U; r4 m) L SHGetPathFromIDList(ItemID, SelectedDir); // 获取所选目录的全名
3 x* B( H* X A6 T3 A5 p GlobalFree(ItemID); // 返回的ItemID占用了系统资源,不要忘了释放: w& t+ w# r/ x4 M* ~( `- o
}
4 y8 P' |; i8 `+ o6 e* E三、直接建立多级目录:
: O! U2 D5 ^# w Windows API提供了建立目录的函数CreateDirectory,但是调用前要保证父目录必须存在,否则会失败。其实,有时越级建立多级目录很有用,因为在建立目录特别是建立多层目录时,层层加以判断会大大地增加程序的复杂程度。如何实现这个功能呢?本人用递归方法设计了一个可以直接建立多级目录的函数,现说明如下,供各位朋友参考。 / H" ~+ |- d: F; \+ r7 N
bool MakeDirectoryEx(const AnsiString &) // 入参为打算创建的目录名,根据操作结果返回"true"或"false"4 `2 b' i( k/ b: @8 U
{& D( t8 {6 Y% D; O: x4 I
if(P.IsEmpty())return false;$ S9 _, D/ E9 f! j
int len=P.Length();
6 u- f$ ~4 x, f. W char *Path=P.c_str();
1 B2 W+ \/ W3 Q: J2 H if(Path[len-1]=='\\')4 F4 o3 d! J0 k; @3 o
{
A! G$ h6 Z( T5 t9 E% W len--;
6 }2 _- t0 f3 d Path[len]='\0';) e6 _ F5 t, E" `
} // 删除末尾的"\"
6 f3 f `6 a4 |% p! g8 ~ AnsiString Dir=Path;
% f' E: y7 D% T3 B0 T4 \+ H% T7 P // 分开父目录和本身目录名称! q1 L8 z/ x( T( D6 V2 Q
AnsiString Parent;
3 ^+ P% \5 E1 D1 S2 B# ` for(int i=len-1;i>0;i--)5 a, E1 V% O5 a+ K% s
{
& B' k5 c7 C) c C if(Dir.IsPathDelimiter(i))
' r& v, J* ~9 Q- W, w: X& i { p# w0 b# j7 x! k9 r# J" ]$ g
Parent=Dir.SubString(0,i);
3 h! h; z! X, Q; M break;
& A5 N+ Y8 o; C. D6 ] }
3 T( V. L, G9 s( S* Z$ ~5 I! Z }9 ?5 R+ J( R" C" Q5 u
if(Parent.IsEmpty())return false; // 目录名称错误/ k0 Z4 ^0 q( z8 R! [) ^$ W: x; F
bool Ret=true; `0 q- Q& L& {$ Y. S/ z
if(Parent.Length()>3) // 如果长度小于3,表示为磁盘根目录' i. K$ ?, t; f8 |
Ret=DirectoryExistEx(Parent.c_str());// 检查父目录是否存在
5 k0 b7 }2 j3 D4 ~2 i4 } if(!Ret)Ret=MakeDirectoryEx(Parent); // 父目录不存在,递归调用创建父目录
* }$ B# a7 I4 u. e$ [4 X if(Ret) // 父目录存在,直接创建目录7 o" H5 l) ]+ `% L* P3 \# }
{
$ Z. I4 P( J6 p5 C' f7 j1 }- t: b SECURITY_ATTRIBUTES sa;
' x' M2 m- R' Z9 v) Y. Q sa.nLength=sizeof(SECURITY_ATTRIBUTES);
+ E! a& i% p Y sa.lpSecurityDescriptor=NULL;
% ]6 L( n, {% `3 w: u5 O$ A sa.bInheritHandle=0;# z! T% r) X7 S$ D/ S
Ret=CreateDirectory(Path,&sa);8 ~. K) k- A: d i6 q: F0 E3 o
}3 C) n0 k1 m- B: d
return Ret;& Z( D0 A3 M" m9 v' z
} ( T& l. V0 o8 R
可以看出基本方法是:& y, C+ C7 f2 `: F
先检查父目录是否存在,这里用到的函数DirectoryExistEx可以按照前面介绍的方法设计; 0 U$ q0 J* t# i8 l G! U
如果父目录存在,则直接创建目录,否则自我调用创建父目录。
6 D# K4 S: ]5 j! |. @" M; q8 v9 C/ }8 E2 b1 u9 W
四、直接删除整个目录: 7 z C, q9 i. S* W" c
在DOS下有一个Deltree命令,用来删除整个目录,这是一个很有用的功能,可惜,Windows API提供的函数RemoveDirectory只能删除控目录,就像DOS的RD命令一样。编程实现这个功能同样需要递归方法,基本流程是:
/ l; z) @& ^0 [# @3 T, }$ d查找目录下的所有文件和目录,即调用API函数FindFirstFile、FindNextFile(*.*)
8 m# l4 o1 n4 c如果找到文件,则强制删除。所谓强制删除,即删除前先调用SetFileAttributes把它的属性设置为Normal,然后调用DeleteFile删除它。 % F8 o" N9 `, ?( x% p
如果找到目录,则进行自我调用,即开始递归过程。 8 e' ?* D2 ?8 y7 e0 C, C2 _ {
如果没有找到目录,即表示为控目录,调用RemoveDirectory直接删除。 ( ~( ^# \5 f, y; d0 w0 t% m8 _
具体程序代码如下:
/ Z# I4 q4 [5 K: N& ~: Vbool DeleteDirectoryEx(const AnsiString &)8 e/ a( Q% M* t
{
' w! D; p9 Q" B if(P.IsEmpty() || P.Length()<4)return false; // 参数长度必须大于3,即不能为磁盘根目录或空白
- @- o2 m+ U! a6 ^! ~ int len=P.Length();
! f$ r3 }/ `9 C/ { char *Path=P.c_str();/ n {1 M/ U, y
AnsiString Dir=Path;+ N+ W! A$ k( y
if(Path[len-1]!='\\')Dir=Dir+'\\';( S1 Q* b" J% y/ q# M% f
AnsiString Files=Dir+"*.*";
: w+ w% v; v* v7 Y, F2 z WIN32_FIND_DATA wfd;3 u8 `( x* L1 |
HANDLE hFind=FindFirstFile(Files.c_str(),&wfd);
& U8 n8 j( }6 `- P bool Ret=true;7 ~1 r* R1 Z: z+ m6 s
AnsiString Tmp;
* T5 Q; s: @+ x6 G- p if(hFind!=INVALID_HANDLE_VALUE)* R9 F/ B- e# ?
{
. }/ L+ y' q9 a7 }* c$ Y bool bFind=true;
/ n2 h1 H, |4 H2 ~6 k# ]% { while(bFind)
0 C9 a) X/ w- [% w) n+ |7 L {
( w- R. H: i+ m, P3 b* I if(wfd.cFileName[0]!='.') // . ..! y4 ]' B4 v7 u3 b$ x( Q1 f, v
{
% s/ w) `8 q% |) S7 f Tmp=Dir+wfd.cFileName;
e1 ]. [4 `1 b( e if(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
$ }0 r' i$ R9 J5 H9 C { // 删除所有子目录3 h8 g/ A- U Q* ^8 n J! k7 {
Ret=Ret&&DeleteDirectoryEx(Tmp.c_str(),false);; c/ W. [3 ~6 ]' M/ z5 P/ t: S' r0 s( j
}else
: o$ o- u: ]7 m, u: N! V6 R1 w { // 删除所有文件
2 |" I$ N- w# f8 s9 {" ^- D9 g2 K+ _ SetFileAttributes(Tmp.c_str(),FILE_ATTRIBUTE_NORMAL);4 @! c b" j# i& G) @
Ret=Ret&&DeleteFile(Tmp.c_str());. {+ L. G. X# G( R& T3 c; H8 r
}7 X1 @6 _! l S
}& g Z" c/ `; g5 [
bFind=FindNextFile(hFind,&wfd);2 N0 z, j0 D0 i6 `! k$ Z7 z0 V
}
4 j9 E4 E) }) x( l/ E X FindClose(hFind);
; O6 ?1 e' w! m4 s9 Z }" W- n8 g* ^. Y. x
if(Ret)return RemoveDirectory(Path);
0 ?4 P0 r: b* q- b return false;2 T$ D6 a" U- z8 T8 [
} 6 K$ A$ w2 b- J
完
! y8 W/ l1 L1 ?& j* m6 s3 ^0 { b$ t
" R5 b) E; I# x1 ^ |