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

在access中，我們不單單用數(shù)據(jù)庫的功能，還可以利用vba做些文件操作的事

在應(yīng)用程序中，有這么一個問題：用戶創(chuàng)建文件，如果文件存在，是否覆蓋還是重命名操作。

這里分享一個函數(shù)，可以對指定位置的文件重命名操作，原文件名《群發(fā)工資條示例模版2》

運行代碼：

Sub ReName()
    Dim F_Dlg As Office.FileDialog
    Dim oldName, newName, fileName As String
    '引用文件對話框
    Set F_Dlg = Application.FileDialog(msoFileDialogOpen)
    '設(shè)置文件對話框?qū)傩?    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

填入新的文件名《群發(fā)工資條》

更改文件名成功