【Access VBA】指定フォルダ配下のファイル名を保存するテーブルを自動生成する

If MakeBookNameTable("FileNamesList")>0 Then
  メッセージボックス ("FileNamesList" の作成に失敗しました。,はい,なし)
If 文の最後

Function MakeBookNameTable(table_name As String) As Integer
    
    Const C_SUCCESS As Integer = 0
    Const C_FAILURE As Integer = 1
    
    ' 新しいADO接続を作成する
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open CurrentProject.Connection
    
    Dim dataAccessObject As Object
    
    Dim tableDefinition As Variant
    
    On Error GoTo exitWithFailure
    
    Set dataAccessObject = CurrentDb
    
    ' table_nameが既に存在する場合は削除する
    For Each tableDefinition In dataAccessObject.TableDefs
        If (tableDefinition.Name = table_name) Then
            DoCmd.DeleteObject acTable, tableDefinition.Name
            Exit For
        End If
    Next
    
    ' 新しいtable_nameを作成する
    conn.Execute "CREATE TABLE " & table_name & " (PathName TEXT, BookName TEXT, BookDateTime DATETIME)"
    
    ' ADOオブジェクトをクリーンアップし、接続を閉じる
    conn.Close
    Set conn = Nothing
    dataAccessObject.Close
    Set dataAccessObject = Nothing
    
    ' ナビゲーションウィンドウを更新する
    Application.RefreshDatabaseWindow
    MakeBookNameTable = C_SUCCESS
    Exit Function
    
exitWithFailure:
    ' エラー時のクリーンアップ
    conn.Close
    Set conn = Nothing
    dataAccessObject.Close
    Set dataAccessObject = Nothing
    
    ' ナビゲーションウィンドウを更新する
    Application.RefreshDatabaseWindow
    MakeBookNameTable = C_FAILURE
End Function