Microsoft Access 掲示板

ありがとうございます。
コードを記載します。

    Dim aName As String
    Dim bPath As String
    Dim cPath As String
    Dim dText As String
    Dim fText As Stirng
    Dim gText As String

    If IsNull(Me.txt●●) Then
    MsgBox dText & "を記入してください"
    Exit Sub
            ElseIf AcDir(bPath, vbDirectory) = "" Then
            MsgBox "トップページに保存しているフォルダが存在しません。"
            Exit Sub
                 ElseIf AcDir(bPath & aName, vbNormal) = "" Then
                 MsgBox bPath & "が見つかりません。"
                 Exit Sub
                      ElseIf AcDir(cPath & fText, vbDirectory) <> "" Then
                      FileCopy bPath & aName, cPath & fText & "\" & aName
                      Shell "Explorer.exe " & cPath & fText & "\", vbNormalFocus
                      Exit Sub
                            ElseIf AcDir(cPath & gText , vbDirectory) <> "" Then
                            MsgBox "「" & fText &"」フォルダが見つかりません。「" & gText &"」フォルダに保存します。"
                            FileCopy bPath & aName, cPath & gText & "\" & aName
                            Shell "Explorer.exe " & cPath & "gText & "\", vbNormalFocus
                            Exit Sub
                                Else: MsgBox "「"& fText & "」「" & gText & "」フォルダのどちらも見つかりません。"
                                         Shell "Explorer.exe " & cPath, vbNormalFocus
                                
    End If
    End Sub```