MS访问:从一个按钮上传多个文件

Private Sub btnUpload_Click()
    Dim fileDialog As FileDialog
    Dim selectedFiles As Variant
    Dim fileName As String
    Dim fileType As String
    Dim fileSize As Long
    
    ' 创建文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置文件对话框属性
    fileDialog.AllowMultiSelect = True
    
    ' 显示文件对话框
    If fileDialog.Show = -1 Then
        ' 获取用户选择的文件
        selectedFiles = fileDialog.SelectedItems
        
        ' 遍历选择的文件
        For Each fileName In selectedFiles
            ' 获取文件信息
            fileType = GetFileType(fileName)
            fileSize = GetFileSize(fileName)
            
            ' 将文件信息插入到表格中
            DoCmd.RunSQL "INSERT INTO 文件表 (文件名, 文件类型, 文件大小) VALUES ('" & fileName & "', '" & fileType & "', " & fileSize & ")"
        Next fileName
    End If
    
    ' 释放资源
    Set fileDialog = Nothing
End Sub

' 获取文件类型
Function GetFileType(filePath As String) As String
    GetFileType = Right(filePath, Len(filePath) - InStrRev(filePath, "."))
End Function

' 获取文件大小
Function GetFileSize(filePath As String) As Long
    Dim fileSystem As Object
    Dim file As Object
    
    Set fileSystem = CreateObject("Scripting.FileSystemObject")
    Set file = fileSystem.GetFile(filePath)
    
    GetFileSize = file.Size
    
    Set file = Nothing
    Set fileSystem = Nothing
End Function