vb.net 如何通过FindFirstFile检索*.*文件

在 VB.NET 中，可以使用 `FindFirstFile` API 函数来检索文件。下面是一个示例代码：

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindFirstFile(lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As IntPtr
    End Function

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
    Private Structure WIN32_FIND_DATA
        Public dwFileAttributes As Integer
        Public ftCreationTime As System.Runtime.InteropServices.ComTypes.FILETIME
        Public ftLastAccessTime As System.Runtime.InteropServices.ComTypes.FILETIME
        Public ftLastWriteTime As System.Runtime.InteropServices.ComTypes.FILETIME
        Public nFileSizeHigh As Integer
        Public nFileSizeLow As Integer
        Public dwReserved0 As Integer
        Public dwReserved1 As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
        Public cFileName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)>
        Public cAlternateFileName As String
    End Structure

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lpFindFileData As WIN32_FIND_DATA
        Dim hFind As IntPtr = FindFirstFile("*.*", lpFindFileData)
        If hFind.ToInt32() <> -1 Then
            Do
                ' 处理找到的文件
                Dim fileName As String = lpFindFileData.cFileName
                Console.WriteLine(fileName)
            Loop While FindNextFile(hFind, lpFindFileData)
            FindClose(hFind)
        Else
            ' 没有找到文件
            Console.WriteLine("No files found.")
        End If
    End Sub

End Class

在这个例子中，我们使用了 `FindFirstFile` 函数和 `WIN32_FIND_DATA` 结构体来查找与给定模式匹配的第一个文件。然后，我们可以使用 `FindNextFile` 函数来枚举所有匹配的文件。最后，我们使用 `FindClose` 函数关闭搜索句柄。