【Access VBA】指定フォルダ配下のファイル名を自動取得する

If GetBookNameList("Downloads","FileNamesList")>0 Then
  メッセージボックス ("Downloads" フォルダからのファイル名の取得に失敗しました。,はい,なし)
If 文の最後

Function GetBookNameList(target_folder_name As String, output_table_name As String) As Integer

  Const C_SUCCESS As Integer = 0
  Const C_FAILURE As Integer = 1

  Dim fileSystemObject As Object
  Dim fileObject       As Object

  Dim pathName         As String
  Dim bookName         As String

  Dim startPosition    As Integer

  Dim adodbConnestion  As New ADODB.Connection
  Dim recordSet        As New ADODB.recordSet

  Dim userProfile As String

  userProfile = Environ("UserProfile") & "\"

  On Error GoTo exitWithFailure

  Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
  Set adodbConnestion = CurrentProject.Connection

  recordSet.Open output_table_name, adodbConnestion, adOpenDynamic, adLockOptimistic

  'ファイル名取得処理
  For Each fileObject In fileSystemObject.GetFolder(userProfile & target_folder_name).Files

    startPosition = InStrRev(fileObject.Path, "\") + 1

    pathName = Left(fileObject.Path, startPosition - 1)
    bookName = Right(fileObject.Path, Len(fileObject.Path) - startPosition + 1)

    Debug.Print bookName

    'テーブルにパスとファイル名を追加
    recordSet.AddNew
    recordSet("PathName") = pathName
    recordSet("BookName") = bookName
    recordSet("BookDateTime") = FileDateTime(pathName & bookName)
    recordSet.Update

  Next

  recordSet.Close

  Set fileSystemObject = Nothing
  Set adodbConnestion = Nothing
  GetBookNameList = C_SUCCESS
Exit Function

exitWithFailure:
  Set fileSystemObject = Nothing
  Set adodbConnestion = Nothing
  GetBookNameList = C_FAILURE
End Function