Open FileDialog VBA Access

• Save file from Attachment Access
• Disable cho nút lệnh

 

Private Sub Command7_Click()
Dim f    As Object
 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = True
 f.Show
'Trả về tổng file được chọn
 MsgBox "file choosen = " & f.SelectedItems.Count
 'Lặp để lấy đường dẫn các file
For i = 1 To f.SelectedItems.Count
    MsgBox f.SelectedItems(i)
Next i 
 
End Sub