VB打开名称不全的文件，类似模糊查询

VB.NET如何根据名字模糊查询图片名字~

思路如下：
得到图片文件夹路径里所有图片的文件名。
对这些文件名进行判断，是否包含你所谓的模糊的文字。
当判断发现包含时，就复制对应的图片到你想到的对应的目录。

最简单的办法就窗体上加一个filelistbox (文件列表框)控件，把 pattern的属性设置为 “*.xls” 即可。
查询的时候，先指定这个文件列表框的路径（path 属性），然后遍历即可。
运行时如果不想看到这个文件列表框，把 file1.visible=false 或者 file1.left = -file1.width

第一步：遍历你指定目录下的文件名，然后把他们赋给字符串数组；

第二部：模糊查询；如下所示，给你个范例：
Private Sub Command1_Click()
Dim a(6) As String
Dim i As Integer
a(0) = "asgsd.txt"
a(1) = "sggsd.txt"
a(2) = "agsgshsd.txt"
a(3) = "cggsd.txt"
a(4) = "aaaggsd.txt"
a(5) = "mgsd.txt"
a(6) = "gsd.txt"
Dim name As String
For i = 0 To 6
If (a(i) Like "a*" & ".txt") Then
Combo1.AddItem (a(i))
End If
Next
End Sub
'combo1内会列出所有a开头并且.txt后缀的字符串。
第三步：打开文件；
第一步第三部怎么做网上答案一大堆，主要这第二部你模仿我做就行了。

思路如下：
得到图片文件夹路径里所有图片的文件名。
对这些文件名进行判断，是否包含你所谓的模糊的文字。
当判断发现包含时，就复制对应的图片到你想到的对应的目录。

---

宁武县18886112060： VB打开名称不全的文件,类似模糊查询 - ？
阙克奎泰： 第一步:遍历你指定目录下的文件名,然后把他们赋给字符串数组;第二部:模糊查询;如下所示,给你个范例:Private Sub Command1_Click() Dim a(6) As String Dim i As Integer a(0) = ＂asgsd.txt＂ a(1) = ＂sggsd.txt＂ a(2) = ＂agsgshsd.txt...

宁武县18886112060： 使用VB如何根据不完整的文件名查询文件？
阙克奎泰： Private Sub Command1_Click() If Dir(＂d:\file\*123*.doc＂) <> ＂＂ Then Print ＂存在＂ Else Print ＂不存在＂ End If End Sub想知道文件名可以加一个变量. Dim str As String Private Sub Command1_Click() If Dir(＂d:\file\*abcd*.doc＂) <> ＂＂ Then str = Dir(＂d:\file\*123*.doc＂) Print str & ＂文件存在＂ Else Print ＂文件不存在＂ End If End Sub

宁武县18886112060： VB模糊查找excel文件并打开 - ？
阙克奎泰： 加上一个 FileList控件,设置它的Path=“d:\a\” 然后, PartFileName=Text1(50).Text i=0 Do while instr(1,filelist1.list(i), PartFileName)=0 and i< FileList1.Counti=i+1 Loop if i<>FileList1.Count then '找到相似的文件……ExcelFileName=FileList1....

宁武县18886112060： VB根据部分文件名称判断文件是否存在?？
阙克奎泰： 先归递调用Dir()列举出目录下所有文件,再用Instr(sFileName(i),＂部分文件名如abcd＂)判断文件是否存在. 如果存在则返回一个不为零的正整数.

宁武县18886112060： vb文本框模糊查询 - ？
阙克奎泰： rs.Open ＂select * from 价格数据 where 名称 like '%＂ & Trim(Text1.Text) & ＂%'＂

宁武县18886112060： 如何用vb窗体界面查找并打开一个word文件,最好有vb工程实例 - ？
阙克奎泰： 模糊查找?比较难哦.打开文件倒是简单: PrivateDeclare Function ShellExecute Lib ＂shell32.dll＂ Alias _ ＂ShellExecuteA＂ _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ...

宁武县18886112060： vb模糊查询语句 - ？
阙克奎泰： Form2.Adodc2.RecordSource = ＂select * from 音像 where 音像名称 like '%＂ & Trim(Me.Text1.Text) & ＂%'＂ 不要多余的空格

宁武县18886112060： VB中如何做到 通过点击按键打开一个目录窗口 在电脑中查找各类型的文件 - ？
阙克奎泰： 这个,可以通过VB的三个控件(它们应该算一组)来实现:1,DriveListBox 控件 --- 磁盘2,DirListBox 控件 --- 目录3,FileListBox 控件 --- 文件列表 工具箱上:那红色圈出来的,除了那个钟表图标外的3个就是了.很好辨认,磁盘、目录、文件.

宁武县18886112060： vb搜索文件夹下指定关键字的文件并打开 - ？
阙克奎泰： '好象回答过一次类似的问题,上次是打开文件夹吧?用的也是下面的代码:Private Sub Command1_Click() a = Dir(＂d:\123\＂, vbHidden + vbDirectory) Do While a <> ＂＂ If GetAttr(＂d:\123\＂ & a) <> vbDirectory Then If InStr(a, Text1.Text) Then...

宁武县18886112060： EXCEL VB 模糊查已打开文件的个数,但通配符不起作用 - ？
阙克奎泰： Sub A() Dim lngCount As Long Dim wb As Workbook For Each wb In Workbooks If wb.Name Like ＂合同*.xls＂ Then lngCount = lngCount + 1 End If Next If lngCount Then MsgBox ＂打开了 ＂ & CStr(lngCount) & ＂ 个合同＂ End If End Sub