Access VBA ファイル出力時　同名ファイル上書確認

‘ファイル名
Dim FName As String

FName = Me.txtSY & “年” & Me.txtSM & “月 – ” & Me.txtEY & “年” & Me.txtEM & “月 受注一覧”

Dim ret As String

ret = MsgBox(“指定された期間の受注CSVファイルを出力します” & vbCrLf & vbCrLf & “ファイル名は「 ” & FName & “.csv 」です”, vbYesNo)

If ret = vbNo Then ‘確認メッセージ

Exit Sub

Else

 '設定パス

Dim strFolder As String
strFolder = DLookup("[ファイルパス]", "設定")


Dim FPath As String
FPath = strFolder & "\CSV出力\" & FName & ".csv"



    If Dir(FPath) <> "" Then    '同名ファイル存在　上書確認**********************

      ret = MsgBox("同じ名前のファイルが既にあります。上書きしますか？", vbYesNo + vbQuestion, "ファイルが存在します")

      If ret = vbNo Then '確認************

        Exit Sub

        Else 'YES
                    DoCmd.TransferText acExportDelim, , "Q_売上_CSV出力", FPath

                    MsgBox ("CSVファイルを出力しました。" & vbCrLf & vbCrLf & "保存先は「 CSV出力 」フォルダです。")

       End If        '確認************

    End If '同名ファイル存在　上書確認**********************

End If ‘確認メッセージ