access vba更改指定位置的文件的名称

在access中，我们不单单用数据库的功能，还可以利用vba做些文件操作的事

在应用程序中，有这么一个问题：用户创建文件，如果文件存在，是否覆盖还是重命名操作。

这里分享一个函数，可以对指定位置的文件重命名操作，原文件名《群发工资条示例模版2》

运行代码：

Sub ReName()
    Dim F_Dlg As Office.FileDialog
    Dim oldName, newName, fileName As String
    '引用文件对话框
    Set F_Dlg = Application.FileDialog(msoFileDialogOpen)
    '设置文件对话框属性
    With F_Dlg
       .Title = "选择想要更名的文件"
       .AllowMultiSelect = False
       .Show
    End With     
    oldName = F_Dlg.SelectedItems.Item(1)
    '获取需要更名的文件所在文件夹
    newName = F_Dlg.InitialFileName     
    fileName = InputBox("请输入更改完的文件名：")
    newName = newName & fileName
    Name oldName As newName
End Sub

填入新的文件名《群发工资条》

更改文件名成功