ACCESS打开文件夹

将数据导出到csv文件，并且导出后，打开文件所在的文件夹

Private Sub Command13_Click()
    On Error GoTo Command13_Click_Err
    f_p = file_path()
    T_f_production = f_p & "\List_To_CSV\123.csv" 
    DoCmd.TransferText acExportDelim, , "123", T_f_production
    ShellExecute Me.Hwnd, "open", f_p & "\List_To_CSV", "", "", 1 ' open the folder
Command13_Click_Exit:
    Exit Sub

Command13_Click_Err:
    MsgBox Error$
    Resume Command13_Click_Exit

End Sub