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

VB实现文件查找功能

HTML文档下载 WORD文档下载 PDF文档下载
VB实现文件查找功能
在VB中要实现查找文件功能,我们可以利用VB的DIR函数进行递归来实现。每次使用DIR函数后,比较是否有要查找的文件,再检查是否有子目录,若有,利用递归继续查找,这样可对整个盘进行查找。
  下面是一个例子,查找DOS目录下的所有EXE文件,统计EXE文件的数目并列出文件名。本程序会查找当前路径下的所有文件和子目录,与WIN95的“包含子文件夹”的查找功能类似。

程序与注释如下:
1.在窗体中加一命令按钮Command1,Caption=查找示例,双击此按钮,写如下代码:

 Private Sub Command1_Click()
  Dim ff() As String '定义一个字符串数组用来保存找到的文件名称
  Dim fn As Long '保存找到的文件数目
  fn=TreeSearch("C:%%dos","*.exe",ff())
  Print "找到文件数目为" & fn
  For I=1 To fn
   Print ff(I)
  Next
 End Sub

2.插入一模块Modulel.bas,写如下代码:

 Option Explicit
 Public Function TreeSearch(ByVal sPath As String,ByVal sFileSpec As String,sFiles() As String) As Long
  Static 1Files As Long '文件数目
  Dim sDir As String
  Dim sSubDirs() As String '存放子目录名称
  Dim 1Index As Long
  If Right(sPath,1)<>"%%" Then sPath=sPath & "%%"
  sDir=Dir(sPath & sFileSpec)
  '获得当前目录下文件名和数目
  Do While Len(sDir)
   1Files=1Files+1
   ReDim Preserve sFiles(1 To 1Files)
   sFiles(1Files)=sPath & sDir
   sDir=Dir
  Loop
  '获得当前目录下的子目录名称
  1Index=0
  sDir=Dir(sPath & "*.*",16)
  Do While Len(sDir)
   If Left(sDir,1)<>"." Then 'skip.and..
   '找出子目录名
    If GetAttr(sPath & sDir)And vbDirectory Then
     1Index=lIndex+1
     '保存子目录名
     Redim Preserve sSubDirs(1 To 1Index)
     sSubDirs(1Index)=sPath & sDir & "%%"
    End If
   End If
   sDir=dir
  Loop
  For 1Index=1 To 1Index
   '查找每一个子目录下文件,这里利用了递归
   Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles())
  Next 1Index
  TreeSearch=1Files
 End Function

3.保存文件,按F5运行,单击命令按钮即可。
电子邮件解析android.net.MailTo类 扫描和获取OBB文件信息 Android加速感应器开发平衡球代码解析 StrictMode限制模式API加速你的应用 手势识别兼容Android 1.x和2.x的代码 NativeActivity类在NDK中管理Activity OBB文件和StorageManager类使用介绍 DownloadManager下载管理类2.3新增API介绍 Android平台上的11个感应器你都知道吗 Android 2.3中的java.io.File类新增功能 更轻松的获取APK文件安装时间 Android控件对应表,丰富你的UI设计 Android开发进阶之NIO非阻塞包(八) Android开发进阶之NIO非阻塞包(七) Android开发进阶之NIO非阻塞包(六) Android开发进阶之NIO非阻塞包(五) Android开发进阶之NIO非阻塞包(四) Android开发进阶之NIO非阻塞包(三) Android开发进阶之NIO非阻塞包(二) Android开发进阶之NIO非阻塞包(一) Android开发进阶教程系列(一)目录篇 Android开发调试工具TraceView多图演示 Android JNI实例代码(二) Android JNI实例代码(一) Android JNI开发高级篇 Android NDK开发技巧二 Android JNI开发进阶篇 Android JNI开发提高篇 Android JNI开发入门篇 Android NDK开发技巧一 Android数据库ContentProvider封装原理 关于delphi开发工具与其他开发工具的比较? dos界面下如何用dll调用一个.exe文件 dos下如何设置硬盘的电源管理。关闭硬盘停止响应功能的命令。谢谢 Python news 3-19 客户端会出现commandtext does not return a result set提示怎么办? 在BCB中,怎样向一个存储过程的一个DateTime类型的输入参数传递值??????? 我在datawindow中加个按钮,script在那里写,请帮帮忙 祝檬檬生日快乐~~~~~! win2K pro版无法启动! QueryPerformCounter()函数的用法? 求教:如何在delphi 5 中使用HTML Help(.CHM) 神经元网络BP算法源代码? =急=急=急=这个SQL语句是什么意思?? 从数据库读出的一个问题 我昨天在使用过程中发现如下问题,希望能得到您的答复! 请教一个如何写如下的存储过程:查找'abcd',允许错两个字符(错误位置任意),例如'abef'可以, 但是'aefg'不行 小弟学习c有一段时间,究竟学到什么程度才能开始学c++呀? 各位,有没有碰到过这种情况! =急=急=急=大家来看看这个SQL语句是什么意思~~ 在ACESS2000的查询中如何/可否使用ISNULL函数。请举例。 c++ 搞什么呀?不是说有专家回答吗?人呢? blob字段的长度限制是:????? 这样的公司我呆下去还有没有意义? unix 消息队列 这是什么意思??? XML还有什么好处? 读写文本文件的问题??急 程序中每一个按钮和动作对应一个存储过程好吗? 按回车键时,在TEXT中输入大于号怎么实现,谢谢! 请问高手:怎样在interDev6.0中调试程序??? 在jb6中,如何制作包含jdbc和自定义包的jar文件。 问一个很菜的问题:怎么使用编译器? 一个让我头疼的问题,大家来帮帮我! 送分!!!送分!!!!救命救命!!一共200分 何处有单独的SQL Anywhere 5.5下载,只是驱动一下,并不用PowerBuilder开发 www.%s.co.cn如何解决? 请问怎样用VBA将office文档转换为txt文件?? 绝对超难问题,答对的话给50分!!! 为学java散分 说说borland c++的发展史吧 谁能告诉哪里能申请教育网的免费邮件地址,或你给我一个算了,100分给你! BP神经元网络算法的原代码 如何在网页上看ASP的原码? 我用另一台机的SYBASE备份文件拿到本机来恢复,居然不行!请教高手! 关于模板的问题,还请大家多多指点! 我用串口接受数据,可是??? 焦急中!!!vc里面的spin控件和editbox控件联系起来怎么编程? 简单任务,快来完成啊………… 有奖赏的 100分哪…… 我的程序把数据集另存为Excel时,在未关闭程序的情况下为何无法打开Excel.代码如下... 把一个html分成左右两个frame。现在需要使用scrolling的时候,好像是在一个页面里面一样。请问。可以用javascript实现吗? 平行金属板其中一板接地,则平行金属板间的场强会变吗? 我想问建筑用的国标钢材如何计算重量 设NA表示阿伏伽德罗常数,下列说法正确的是A.NA个N2分子和NA个CO分子质量比为1:1B.1molH2O的质量等于NA个H2O质量的总和C.在任何条件下1molH2所含的原子数为NAD.1molH2SO4中所含的粒子数目一定是NA为 两块平行金属板与电源相接,其中一块金属板接地后电势为零?或者说明相关的定理至于电势为零的意思是否就是指该点或平面的电压为零?或者是指金属板不带电呢? 离子所带的电荷和化合价化合价的正负价有关系吗?比如说Na+和Na的化合价+1价有关系吗?坐等. 用na表示阿伏伽德罗常数的数值,下列说法中正确的是A,在常温常压下 11.2L氯气所含的分子数目为0.5NaB 32gO3含的原子数目为2Na C 5.6铁与足量盐酸反应转移的电子数为0.3NaD 16gCH4与18gNH4+所含质子数 两平行金属板间有匀强电场一板接地电势为什么为零,电场强度为什么不变?两平行金属板间有匀强电场,一板接地电势为什么为零,电场强度为什么不变?物理必修3-1 怎么确定离子所带的正负电荷数是多少?跟化合价有什么关系? 探究凸透镜成像的规律将所有规律用字母列出来,分别是用来干什么的都列出来,例如放大镜,投影仪什么的,3Q 描写肥皂泡的段落描写肥皂泡的的样子. 这我有问题:同种元素(或原子团)的化合价和离子的电荷数通常数值相等,正负号相同,只是书写的位置不同问题1、又不是所有的物质都由离子构成,怎么可以说“同种元素(或原子团)的化 以NA 表示阿伏伽德罗常数,下列说法正确的是A 53g碳酸钠中含有NA个碳酸根离子B 0.1mol 氢氧根离子含NA个电子C 31g白磷中含4NA个P原子D 标准状况下,11.2L臭氧中含NA个氧原子 “肥皂泡炸裂时温度比太阳还高”这句话可信吗? 离子,原子最外层电荷数和化合价问题我在做题时发现,当一种元素中的原子变为离子的时候,失去和得到的电荷数和其化合价好像是相同的,比如镁,Mg,离子表示为Mg2+ (2+右上标注) 化合价为+ 一均匀带电球壳,面电荷密度sigma,球面上任意小面元dS上所受静电力. 肥皂泡一文4~5自然段哪些词或句子把作者吹肥皂泡的心情和美妙想象都写出来了 是不是所有离子的化合价等于离子所带电荷数 一半径为R的绝缘球壳,即球面半径为R,它的面积怎么就是4πR2了? 用横线把作者吹肥皂泡的心情及感受画下来.应该画那几句? 如图所示,电荷q均匀分布在半球面上,球面的半径为R,CD为通过半球顶点C与球心O的轴线.P、Q为CD上在O点两侧,离O点距离相等的二点.如果是带电量为Q的均匀带点球壳,其内部电场强度处处为0,电势 设NA代表阿伏伽德罗常数,下列说法中正确的是A 2.3g钠离子所含电子数目为0.2NAB 2g氢气所含原子数目为NAC 17gNH3所含的电子数为NAD NA个氧分子和NA个氢分子的质量比等于16:1 吹起的肥皂泡后面那句是什么 电荷q均匀地分布在半球面ACB上,球面的半径为R,CD为通过半球顶点C与球心o的轴线,P,Q为CD轴线上与o点距离相等的两点.已知P点的电势为Up,求Q点的电势. 以NA表示阿伏伽德罗常数,正确的是:() A.53g碳酸钠中含有NA个CO32- B.0.1molOH-含NA个电子 C.1.8g重水(D2O)中含NA个中子 D.标准状况下11.2L臭氧中含有NA个中子 怎样快速提高数学英语成绩! 电荷q均匀地分布在半球面ACB上,球面的半径为R,CD为通过半球顶点C与球心o的轴线,P,Q为CD轴线上与o点距离相等的两点.已知P点的电势为Up,求Q点的电势. 设NA表示阿伏伽德罗常数的值 测土地的ph值 需要用水稀释成水溶液 用多少水好呢 半径为R的半球.一正方体的四个顶点在半球的底面上,四个顶点在半球的球面上,则该正方形的表面积是多少rt 答案是4R^2 在探究凸透镜成像规律的实验中:1.如果没有太阳光,怎样利用白炽灯粗略的量出焦距?2.某同学在做实验时,先把蜡烛放在较远处,使物距大于2倍焦距,测出物距,然后移动凸透镜,观察光屏上成清 如何选择适合的稀释度的土壤悬液接平板 半径为R的半球,一个正方体的四个顶点在半球的底面上,四个顶点在半球的球面上,则该正方体的表面积为A.2πR B.4R的平方 C.2R的平方 D.4πR的平方 在研究凸透镜成像规律时在“探究凸透镜成像”的实验时,王平同学保持透镜的位置不变,先后把烛焰放在A、B、C、D、E、G各点,如图所示,分别调整光屏的位置,把烛焰放在_____点,光屏上的像最 土壤的称取和稀释都为何应在火焰旁操作 原子化合价与其原子的离子所带电荷数目相等,为什么氢离子带一个负电荷,氢原子化合价是正一? 离子是带电荷的原子和原子团,对吗,为什么啊 算离子电子数时,离子的核外电子数=原子序数(之和)-所带电荷数,为什么要“-所带电荷数”?比如,NH4的电子数=7+4-1=10,为什么? 在化学中原子的化合价可以理解成离子电荷吗? 我们知道,由带电荷的原子或原子团组成离子,原子团组成的离子结构图是像原子组成的离子那样的吗?如果不是,那是怎样的? 离子电子数等于原子或分子电子数加上或减去所带电荷数? 探究凸透镜成像规律 "多原子离子"和“原子团”有区别吗.. 怎么提高数学成绩和英语成绩 关于探究凸透镜成像的规律的问题是眼前要调整蜡烛、光屏、凸透镜的高度,使他们的中心在一条直线上.这句活错在什么地方? 离子____的原子或原子团. 凹凸透镜成像规律最好附带探究的过程及结论. 在探究凸透镜成像规律时,小明用9个红色的发光二极管按“F”字样镶嵌排列在白色方格板上替代蜡烛作为光源,又用同样的白色方格板做成光屏,实验使用的凸透镜焦距为10 cm,实验装置如图甲 我们物理老爷子叫我们写探索凸透镜成像的规律实验报告包括有:实验名称,原理,器材,数据,数据处理,结论,当u>2f,F<a<2f,u<f 如何快速提高数学和英语成绩小女子今年都高三了,数学和英语成绩一直不好,想提高一下,请问各位大侠该怎么办呀?有什么方法?现在我可是快急死了 对凹凸透镜成像规律的研究 请问原子的结构中原子核带正电绕核电子带负电是假设出来的吗?正负电荷差别在那里? 总氮的实验数据超出方法最高检测限(4mg/L)怎么处理?方法是碱性过硫酸钾紫外分光光度法 凸透镜成像规律 原子所带的正负电荷量一定相等? 碱性过硫酸钾消解水样,测总氮, 220nm 吸光度变得很小,原因何在?之前测的时候220nm的时候大约是1.378这样的大小,但是最近测了几次,在220nm的时候都是0.079这样,突然变得很小,请问为什么呢?是在 .关于凸透镜成像.凹透镜成像.平面镜成像的原理如题.顺便说下在什么情况下成的像是什么.例如:正立放大的虚像. 摩擦后的带正电的玻璃棒为什么能吸引小纸片,从原子的正负电荷解释一下,小纸片原本是带正电还是负电啊! 平行金属板其中一板接地说明什么 国标罗纹钢的重量怎么算? 正负电荷的定义?什么是正电?什么是负电?他们有什么区别?如题正与负的定义和本质区别是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘