必须将文件没显示做了区分：文件夹名称不显示folderlist()，文件名称会显示filelist():
privatefunctionfolderlist(pathnamelikestring,treeflaglikeinteger)treeflag:0列表1树形2树形发起
文件夹数和名称
dimsfthoughstringsfdir(pathname,vbdirectory)声望兑换最后一个目录名
foldernum0
dowhilesf
到后面当前的目录及上层目录
if(getattr(pathnamesf)andvbdirectory)vbdirectorythen
iftreeflag0then
text2text2sfvbcrlf要是它是一个目录，将其名称直接添加到列表
elseiftreeflag1then
text2text2treestrsfvbcrlf
elseiftreeflag2then树形展开的时候，是需要了解子目录，所以才还需参与递归全局函数
text2text2treestrsfvbcrlf
folderlistpathnamesf,treeflag
filelistpathnamesf,treeflag
endif
foldernumfoldernum1统计文件夹数目
endif
endif
sfdir()直接输入下一个目录
loop
iftreeflag0then
iffoldernum0then
text2text2vbcrlf总计foldernum个文件夹vbcrlfvbcrlf
else
text2text2无子目录vbcrlfvbcrlf
endif
elseiffoldernum0then
text2text2nullstrvbcrlfnullstrvbcrlf
endif
endfunction
privatefunctionfilelist(pathnamesuchstring,treeflagandinteger)0列表1树形2树形展开攻击
文件数和名称
dimathoughstringadir(pathname/*.*)
filenum0
dowhilea
iftreeflag0then
text2text2avbcrlf
else
text2text2treestravbcrlf
endif
filenumfilenum1统计文件数目
adir
loop
iftreeflag0then
iffilenum0then
text2text2共有filenum个文件
else
text2text2无文件信息
endif
endif
endfunction
定义一个fstream类变量infile.....然后输入文件操作:(100);//输入文件的指针向后移到100字节位置。原型seekg(文件中的位置);(-50,ios::cur);//然后输入文件中的指针从当前位置后移50个字节。//原型，seekg(位移距离量，具体参考位置);具体参考位置ios::beg,文件开头，默认值。ios::cur指针当前位置ios::end文件末尾....输出文件操作:(-75,ios::end);//输出文件中的指针从文件尾后移50个字节。
