说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出

HTML文档下载 WORD文档下载 PDF文档下载
VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出
问题: 如何用Dir()函数列出C:\下所有*.TMP文件,并且用文本框输出?
  答:下面是一个列出指定目录下所有符合要求的文件名的函数:
  Public Function AutoListFiles(ByVal sDirName As String,ByVal FileFilter As String ) As Boolean
  On Error GoTo RF_ERROR
  Dim sName As String, sFile As String, sExt As String
  Dim sDirList() As String, iDirNum As Integer, i As Integer
  ′首先枚举所有文件
  sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
  Do While Len(sFile) >0
  sFile = UCase(Trim(sFile))
  ′在此处可以将 sFile 加入到一个 Text 控件...
  sFile = Dir ′下一个文件
  Loop
  iDirNum = 0
  sName = Dir(sDirName + ″*.*″, vbDirectory + vbNormal)
  Do While Len(sName) >0
  If sName <> ″.″ And sName <> ″..″ Then
  iDirNum = iDirNum + 1
  ReDim Preserve sDirList(1 To iDirNum)
  sDirList(iDirNum) = sDirName + sName + ″\″
  End If
  sName = Dir ′下一个目录
  Loop
  For i = 1 To iDirNum
  AutoListFiles sDirList(i) ′递归调用
  Next
  End If
  RF_EXIT:
  AutoListFiles = True
  Exit Function
  RF_ERROR:
  MsgBox Err.Description, vbCritical, ″″
  Resume RF_EXIT
  End Function
  调用上述函数的示例:
  AutoListFiles(″C:\″,″*.TMP″)
  之所以采用上述先处理文件,再处理子目录,一是思路较清晰,另外也有模仿 Prolog 语言中的“尾递归”的想法,当然,VB中是不支持尾递归的。

2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 jQuery消息提示框的简单实现 Mozilla CTO:Mozilla不会转向WebKit 这很重要 Pinterest或超Twitter成第二大社交网站 适合儿童上手的八款编程工具 一周云事件:亚马逊对消费者的吸引力超过苹果 比尔&#183;盖茨对微软创新和手机不满意 让我们一起来做最漂亮的Android界面吧! 响应高达6秒 用户揭露Heroku修改路由“50倍圈钱”? [探讨]响应式设计四大原则 Linux Kernel 3.8发布 停止支持386设备 HTML5手机游戏引擎Devkit开源 程序员的一天:台湾个人移动游戏开发者 极限破解:利用低温环境读取Android加密数据 五种工具保护你的在线隐私 如何在 windows下 破解 写保护卡? VC+ADO,怎么实现把*.DBF表导入SQLServer2k里。 一个关于库文件的问题 我在用VB编数据库SQL SERVER,想实现数据库中关键表在本地磁盘中备份,通过代码应该怎样实现 谁想与我交换主页链接 一个程序编译通过后,我把paradox数据表的某一字段由N型改为了A型,结果运行时出错,应该怎么做呢? 如何用存储过程将一个查询的结果存为本地的一个XML文件? 有人知道.DUL文件是什么东西,有什么用,怎么创建? 如何把richtext.text的内容发到直接激活的word文档中?(在线等待) 高人指点,高人救命,我急。这是我唯一的办法了。 C++中为什么析构函数可以是虚函数,而构造函数不可以是虚函数? 100分求救:谁有webeasymail的解密版本或是能用的注册机??? 寻求C++参考书 高分问一个简单问题,什么叫“RAM驱动器”? 关于运算符重载的问题,请高手进来看看 如何把unsigned long型的对方IP地址,设在ClientSocket的IP中 为什么打开防火墙后,别人不能浏览自己的主页了? 钩子函数 请问如何唤醒机器? 关于ADOQUERY的问题?? 为什么打开防火墙后,别人不能浏览自己的主页了? ■■■征集顶级域名■■■ 谁知道在WIN2000有没有象WIN98中的WINPOPU发送信息的文件,若有,文件名为什么? 云南的程序员考试者看过来!!!一起来交流一下吧!!! 为什么打开防火墙后,别人不能浏览自己的主页了? 请你帮助! 谁知道在WIN2000有没有象WIN98中的WINPOPU发送信息的文件,若有,文件名为什么? 请教pnm和rtsp协议?请问哪儿有相关技术资料下载?谢谢! VC.NET那个变态的属性太难用了!!!我怎么死活都找不到我定义的消息??? 你们遇没遇到在builder中显示 link error提示的?? 请教pnm和rtsp协议?请问哪儿有相关技术资料下载?谢谢! 为什么在form1的paint事件中加入"form1.refresh语句后,在不做任何动作的情况下,事件会连续发生???你们有这种现象吗? 数据表格数据的块粘贴,如何实现? 网络病毒!急救! SOS 救命!!!!!! 为什么打开防火墙后,别人不能浏览自己的主页了? 急,判断某个记录是否为空的语句怎么写???除了record="" ,还有一个 jrun下如何配servlet,急急急 一个简单的问题,有劳各位了! 有一个EXE文件的图标很好看,如何把它保存下来? 超大整数相乘 急,判断某个记录是否为空的语句怎么写???除了record="" ,还有一个 请大家提供一部最精典的武侠小说,我最近特无聊,想看! 关于表空间的菜问题 一个简单的问题 一个最简单的CSocket问题。(请指出借在哪里) 我建好了一个RICH EDIT控件,怎么把一个文本文件的内容输入到它里面去啊??? 关于MsFlexGrid的打印问题,请大家帮忙。 在C++builder5里面还能编写纯C/C++程序吗? 有知道关于Javabeans与html的么?(高分!) 今天学习C++颇有收获 this man looks like old句子中错误的改正 特仑苏有机奶咋样上周2010年10月31日在超市买了一箱特仑苏有机奶,68元,12小盒.给老婆喝 她怀孕三个多月了,但她同事说 特仑苏有致癌物质,我在网上查了 都是2009年的事了.有机奶有化学成份吗 科密指纹考勤机如何安装?根据说明书装好A1软件,但是添加设备时,却显示搜索到了0个设备,怎么也搜不到, It's black.It look like a man.是什么动物?快. 特仑苏一共有几种牛奶? 科密科密338A-U指纹考勤机怎么采集指纹数据 like black有劳 柱箍筋表示为C10-100/200(C12-100)括号里表示啥意思?柱箍筋表示为C10-100/200(C12-100)括号里表示啥意思 科密A1考勤考勤管理系统中班次设置计算外出是什么意思怎么解释 Dave has a basketball【改为一般疑问句】 蔡伦造纸的工序还有蔡伦造纸的原料是从哪里来的 一个圆柱形水池,水池内壁和底面都贴上瓷砖,水池底面直径10米,池深1.5米,贴瓷砖的面积是多少平方米? He has a volleyball 改为一般疑问句 做回答 汉代造纸需要哪些工序?短一点 只要几步 不要把造纸术的什么什么历史打出来了 看着都晕 My sister ,____(like) my brother,______(like)______(watch) TV.怎么填? Sandra has a volleyball改成特殊疑问句 古代造纸的工序(东汉时期)最好用十几个字精练的概括,稍微具体,不要一大堆东西发上来答对后追加十分 My brother looks like my father.(同义句) My brother looks _____ _______ _____ my father.急. 谁改进了造纸术? people是复数还是单数 是可数还是不可数名词 后面谓语动词怎么用people 后的谓语动词一定是复数???? my sister looks like my mother的同意句My sister looks ( ) ( ) ( )my mother在括号里填词 造纸术发展顺序 是从什么到什么再到什么就是那种从印刷术—印章和研牌—==那种的呀 三年级应用王大爷家有一块正方形菜地,一边靠墙,长是15米,宽3米,如果在菜地的边上围篱笆,篱笆长是多少这块菜地的面积是多少? A、B两站间的路程为448米,一列慢车从A站出发,每小时行驶60千米,一列快车从B站出发,每小时行驶80千米,问:两车相向而行,慢车先开28分钟,快车开出后多长时间两车相遇? 用方程解,今天之前 造纸术在各大洲的传播顺序是什么? what kind of 后名词 单数 复数?我在百度知道了查了下说 what kind of 后接 名词单数的有,说,可以接 可数名词复数,或者 不可数名词的 也有,我比较认同 what kind of 后接 单数名词,或是不可数名词,请 seem to like 怎么翻译呢 蔡伦是怎样改进造纸术的?制做步骤是什么? 蛾蚋的幼虫能否寄生人体? 甲乙两人分别从AB两地同时出发相对而行结果在距两地中点60米处相遇已知甲比乙多行20%求AB两地之间的路程 古代造纸术的最关键的步骤是哪部? 烟草叶片受到某种蛾幼虫的采食刺激后,会释放出挥发性的某种化学物质,这种物质白天会吸引此种蛾的天敌.对此现象解释合理的是:A幼虫和烟草之间是捕食与竞争的关系B烟草叶片释放出的 l like fish very much?(同义转换)l like fish ______ ________ 猜动物a black and white animal.it sleeps during the day. 甲种蛾幼虫与天敌的种间关系说除了捕食还有寄生,那怎样寄生的呢?甲虫蛾是寄生生物? I like fish a little,but i like chicken very much.I ____ chicken _____ fish. 是a black animal 还是an?中间有一个不是原因音节开头的要怎么用定冠词? 蛾幼虫与烟草是寄生还是捕食? I like fish very much.回答怎么问? 英语测试This animal looks like a bear but not a bear with a white and black coat. 汉代人是如何造纸的? 一M等于多少K 鼻涕虫是什么? 大熊猫是一种漂亮的、黑白相间的动物.Giant pandas are a beautiful ,black-and-white animal.Giant pandas are beautiful ,black-and-white animals.两种都对吗? 汉代是怎么造纸的 现代用什么原料造纸,基本工序有哪些? 什么叫做鼻涕虫? 蔡伦造纸属于发生在汉朝的事吗? 蛞蝓是什么东西? 动物歇后语尾巴长不了 I really want to talk to you,but I feel like I’m annoying you 1 造纸原料.2 造纸对环境的影响.3 纸与森林的关系.4 节约纸与保护环境的关系.(任意一个都可以) 世界上最小的蛞蝓叫什么我是问这种生物的名字。还有``必须是BAIDU百科里面有的= =...= 与动物有关的歇后语 造纸要经过那几种步骤?主要的材料和器材有哪些? =IF(C10100%,C10,0)中,这个函数中""表示什么意思?但是太专业了,看不懂,能帮我解释一下这个具体的IF函数的意思吗?我由于看不懂这个符号,就看不懂这个函数的意思? 有关动物的歇后语(20个) The little m____ looks like a man 组合c2,1*c10,5+c2,2*c10,4=714种 这个能不能解释的详细一些,要小学4年级听得懂的方法 谁有有关动物的英文谚语?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘