stringfindname;//这是你输入的名称。List<string>findfiles;//这是你的结果集。然后循环查找foreach(stringfileinfilename){if(file.Indexof(findname)!=-1)//文件名匹配{findfiles.Add(file);}}r...

FindName=InputBox("输入搜索的文件名。输入*表示所有。","提示")IfFindName=""ThenExitSubId=1FindNumber=0List1.ClearReDimFindPath(Id)FindPath(Id)=InputBox("输入搜索的路径","...

参数是自定义的。括号之间是有空格的。如果不懂的话，挑几个容易理解的命令开始学起，刚开始都是不会的，我也是。慢慢学习就学会了。path是路径的意思，比如C:\就是C盘的路径，filename是文件名的意思，drive是驱动器的...

&findname&变为&findname&奥，没看到后面的查询，抱歉啊。criteria="姓名='"&findname&"'"

FileName)IfUBound(FindedNames)<LBound(FindedNames)ThenMsgBox"文件夹内无文件"ExitSubEndIfForEachCellInRange("A2:A"&Cells(Rows.Count,1).End(xlUp).Row)For...

'FindName-要查找的进程名，DeleteNeme要删除的文件名（含绝对路径）'如：FindName="qq.exe"DeleteName="c:\cc.txt"IfGetPidByPName(FindName)>0Then'找到了DimtmpObjAsObjectSettmpObj=...

Sub示例_1_11()'从文件夹内提取excel文件名DimwjmDimiAsIntegerwjm=Dir("d:\我的文件\EXCEL-VBA\整理示例及说明\*.xls")Sheet1.Cells(1,1)=Left(wjm,Len(wjm)-4)Fori=2To...

//先给你一个查找指定文件夹路径中特定文件的函数//第三个参数是指定文件属性的,这个你可以不指定,或查阅相关API说明,procedureFindFileS(RetList:TStrings;constPathAndFindName:string;Attr:Integer=faAnyFile);var...

EndIfElseIfUCase$(FindName)=UCase$(sFileName)ThenIfMsgBox("已经找到文件、存在于目录："&sPath&vbCrLf&"是否停止查找并运行？",vbQuestion+vbYesNo)=vbYesThenCallShell("cmd...

给你个思路，具体代码不写了，人比较懒！文件按行读入，因为不知具体行数，这里用list来装每行内容然后遍历list，如果发现具体list（i）有查找的文字，break循环，并输出这里的“i和list（i）“就是你要的了！