pb8.0-9.0获取指定目录下的所有的文件和目录

[javastart]

pb8.0-9.0获取指定目录下的所有的文件和目录

[佣工7001]

只能用api涵数,给你一个例子
//====================================================================
// 函数[Function]:- of_deletefiles for nvo_winapi
//--------------------------------------------------------------------
// 描述[Description]:删除一个目录下指定的一类文件，EX："C:\TEMP\*.TXT"
//--------------------------------------------------------------------
// 参数[Arguments]:
//
// 参数(1): string filespec
// <description>
//--------------------------------------------------------------------
// 返回值[Returns]: (INTEGER)
//--------------------------------------------------------------------
// 作者[Author]: dajianshi 日期[Date]: 2000年05月30日
//====================================================================
long rtn,p,FindHandle;
WIN32_FIND_DATAA fd;
string fs,fname,lpathname,tagFile[];
fs = filespec;
lpathname = reverse(fs);
if pos(lpathname,"\")< 0 then
p = pos(lpathname,'/')
else
p = pos(lpathname,'\');
end if
if p>0 then
lpathname = mid(lpathname,p);
end if
lpathname = reverse(lpathname);

rtn = FindFirstFile(fs,ref fd);
FindHandle = rtn;
if rtn < 0 then
rtn = GetLastError();
if rtn<> 2 then
of_showwindowerror()
return rtn;
else
return 1 // NO such files then no need delete;
end if
end if
do while rtn >0
fname =string(fd.cfilename)
if fname='.' or fname='..' then
else
fname = lpathname+fname;
tagFile[upperbound(tagFile)+1] = fname;
end if
rtn = FindNextFile(FindHandle, ref fd);
if rtn = 0 then
rtn = GetLastError();
if rtn<> 18 then // NO more files match and no this file
of_showwindowError();
messagebox('next',fname);
return -1
else
rtn=0
end if
end if
loop
FindClose(findHandle);
//messagebox('to delete',fname);
for p = 1 to upperbound(tagFile)
of_setFileAttributes(tagFile[p],'a');
if not DeleteFile(tagFile[p]) then
of_showWindowError();
messagebox('错误！','删除文件：'+tagFile[p]+'时出错');
return -1;
end if
next
return 1;

[qqjj7758]

看看