vb如何查找文件

你可以使用Windows API。在VB中有个API Loader，可以帮助你申明一些WindowsAPI的函数和常量

所有的软件安装信息存储在注册表

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

你需要使用RegOpenKeyEx打开一个这个键，然后使用RegEnumKeyEx查询这个键下所有子键。

接着在子键下有DisplayName和InstallLocation，打开这两个值，判断DisplayName里是否含有 腾讯，如果有就输出InstallLocation的值，就得到了QQ软件的位置，再看QQ.exe在这个位置的森晌哪个文件夹里就可以了，察行比如InstallLocation=C:\QQ，那么qq.exe应该就在c:\qq\bin\qq.exe里。对败春哗于注册表信息，你可以按Win(小旗子键)+R，输入regedit，看下里面有什么。

在这里需要举一个例子好能清楚的了解在VB中怎么查找文件，如下：

假设要找的文件是TextBox 叫 TextBox1，那么可以老山厅在VB中这样写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path &TextBox1.Text &".xlsx" (后面根据文唯带件的扩展名更改即可）

Workbooks.Open filename:=FileName

VB全称是Visual Basic，是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者侍隐轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

假设你的那个TextBox 叫 TextBox1，则在VBA中可以写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path &TextBox1.Text &".xlsx"   (后面根据文件的扩展名更改）

Workbooks.Open filename:=FileName

这是基本代码，其他的可以自由发挥。

以下是我常用的一段代码，作用是d出一个文件夹选择框，选中文件夹后，可以自动依次打开所有文件，方便批量衫雀处理。如果不想打开很多，就把 FileDialog 里的参数改为 msoFileDialogFilePicker 即可，当然，后面的For...Next循环也就不需要了。

    Dim Path, filename, FName As String

    Dim FileNumber, i, m As Integer

    Dim fopen As FileDialog

    

    m = 1

    Set fopen = Application.FileDialog(msoFileDialogFilePicker)

    

    If fopen.Show = 0 Then Exit Sub

        

    Path = fopen.SelectedItems(1) & "\"

    Sheet2.Range("A:A").ClearContents

    

    '列出目录文件名

    filename = Dir(Path)

    带谈Do Until filename = ""

    Sheet2.Cells(m, 1) = filename

    m = 蠢塌碰m + 1

    filename = Dir

    Loop

    

    FileNumber = WorksheetFunction.CountA(Sheet2.Range("A:A")) '文件总数

    

    For i = 1 To FileNumber

        Workbooks.Open filename:=Path & Sheet2.Cells(i, 1)

        Call Work

        ActiveWorkbook.Close True

    Next

---