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

填入新的文件名《群髮工資條》

更改文件名成功