① vb获取指定文件夹内的文件的文件名
已经完成，请留下E _ M _ A _I L或者用下面内容1.建立一个窗体2.放置一个文本框，用于输入索引路径，文本框命名为txtDirPath3.放置一个按钮，用于开始索引，按钮命名为cmdSearch4.放置一个Label，用于显示索引进度，命名为lblState5.放置一个Command按钮，用于保存索引结果，命名为cmdSave程序代码如下：Dim searchingPath As StringDim pl As LongDim finalOut As StringDim c As LongPrivate Sub cmdSave_Click() Open "c:\out.txt" For Output As #1 Print #1, finalOut Close #1 lblState.Caption = "保存完成! 已经写入到C:\Out.txt": DoEventsEnd SubPrivate Sub cmdSearch_Click() c = 0 If Right(txtDirPath.Text, 1) <> "\" Then txtDirPath.Text = txtDirPath.Text + "\" pl = Len(txtDirPath.Text) SearchFile txtDirPath.TextEnd SubPrivate Sub Form_Load() Me.Show txtDirPath.SetFocus txtDirPath.SelStart = Len(txtDirPath.Text)End SubPrivate Sub txtDirPath_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdSearch_ClickEnd SubSub SearchFile(strPath As String) On Error Resume Next Dim strName As String Dim dir_i() As String Dim i As Long, idir As Long Dim showStr As String If Right(strPath, 1) <> "\" Then strPath = strPath + "\" strName = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) Do While Len(strName) > 0 If strName <> "." And strName <> ".." Then If (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then idir = idir + 1 ReDim Preserve dir_i(idir) As String dir_i(idir – 1) = strName Else c = c + 1 showStr = Replace(Mid(strPath, pl + 1), "\", "><") finalOut = finalOut + "<" + Left(showStr, Len(showStr) – 1) + strName + vbCrLf End If End If strName = Dir If searchingPath <> strPath Then lblState.Caption = "索引数: " & CStr(c) & "，搜索目录: " & strPath searchingPath = strPath DoEvents End If Loop For i = 0 To idir – 1 Call SearchFile(strPath + dir_i(i)) Next i Erase dir_i lblState.Caption = "搜索完成，总计文件数: " & CStr(c)End Sub
② VB如何获取文件名
VB6.0可以使用CommonDialog 控件实现获取文件路径并使用Split函数获取文件全名。
CommonDialog 控件
CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。
Split函数，
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
代码实例：
PrivateSubCommand1_Click()DimsplitStrCommonDialog1.CancelError=True'设置“CancelError”为TrueOnErrorGoToErrHandlerCommonDialog1.Flags=cdlOFNHideReadOnly'设置标志'设置过滤器CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"CommonDialog1.FilterIndex=2'指定缺省的过滤器CommonDialog1.ShowOpen'显示“打开”对话框'显示选定文件的名字MsgBoxCommonDialog1.FileNamesplitStr=Split(CommonDialog1.FileName,"")MsgBoxsplitStr(UBound(splitStr))ErrHandler:'用户按了“取消”按钮ExitSubEndSub
第一句Msgbox显示文件路径。
③ Vb如何查找与文件名相同的文件夹并把文件拷贝到该文件夹中，如a.txt d:\www\ttt\u
打开“计算机”或“我的电脑”，里面有查找功能，在查找栏输入任意字符，出来的结果底下有个“自定义”，点击自定义，里面就会有“搜索文件夹”选项，点开它，根据你要找的内容进行相关设置，就可以找到那个文件夹了。找到之后打开文件夹，然后再打开一个“计算机”，找到你要复制的文件，右击文件，选择复制，在切换到刚打开的那个文件夹窗口，右击空白位置，选择粘贴，就OK了
④ VB如何在指定地点查找指定文件名的文件是否存在
Dim filename As StringDim filepath As StringDim a As Stringfilename = Dir(filepath)While filename <> "" a = Mid(filename, 1, 4) If IsNumeric(a) Then '你自己的程序 Else '你自己的程序 End IfWend这个可能不完善，但是思路就是根据你这内个有规律的文件容名，来提取文件名的前4个字符，判断是或否为数字。至于判断中文字母，可能就不需要了！
⑤ vb 怎样读取一个文件夹里面的指定类型的所有文件的名称
可以实现可以借助文件列表框来实现首先加入一个FileListBox 控件,然后加入一下程序Private Sub Command1_Click()File1.Path = "C:\Documents and Settings\Administrator\桌面\新建文件夹" '指定一个文件夹File1.Pattern = "*.txt" '指定文件类型Dim i As IntegerFor i = 0 To File1.ListCount – 1 从列表框的第一个项目找到最后一个项目Print File1.List(i) '依次输出该文件夹中指定类型的文件名,可以按照自己的需要输出到一个文本文件中,或者自己其他指定Next iEnd Sub如果需要,可以把该控件的visible属性谁为false,把控件隐藏
⑥ VB 查找某个盘下的一个特定文件名的文件
算你找对人了~ 呵呵 vbs代码如下：（遍历e盘找到后以对话框的形式提示文件路径）Set Fsys=WScript.CreateObject("Scripting.FileSystemObject") dim s:Call Visit("e:") 'a b c d随自己改set file=fsys.createtextfile("list.txt") file.write s file.close Sub Visit(folder) s=s&folder&vbcrlf Set oFolder=Fsys.GetFolder(folder) Set sFolder = oFolder.SubFolders For Each fd In sFolder Visit(fd) Next End Sub set fi=Fsys.opentextfile("list.txt",1)i=1do while fi.atendofstream<>truen=fi.readlineset folder_=Fsys.getfolder(n) set files=folder_.files for each file in files d=Fsys.getfileName(file) s = Instr(1, d, "abc.txt") 'abc.txt可以换成你想要查找的文件if s <>0 then Set f = Fsys.GetFile(file)msgbox(f)end ifend if nextwscript.sleep 100i=i+1loopfi.closeFsys.deletefile("list.txt")批处理写法：dir /s /b e:\abc.txtpause两个程序已经调试过 可用 祝你用的开心 ~不满意的地方可以告诉我哦~
⑦ vb 获取目录所有文件名
1、首先，在电脑上打开VB6.0属性窗口，新建一个EXE工程窗口。
未经允许不得转载：山九号 » vb查找类似文件名|VB如何获取文件名
