使用 VBA 重命名不同驱动器上的文件

Question

我在工作表中有一个文件名列表。我想读取一个名称，找到实际文件，重命名它并继续使用下一个名称。

第一部分，从工作表中检索名称并将其修改为新名称不是问题。问题是为文件分配新名称。

名称功能不起作用，因为文件位于不同的驱动器上。我还尝试了 Scripting.FileSystemObject。

代码运行但未进行任何更改。 这是我使用的代码...

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set f = fso.GetFile(fOldName)
If Not Err = 53 Then 'File not found
  'Rename file
  f.Name = fNewName
End If

我是否犯了一个我没有看到的代码错误？我应该使用/做其他事情吗？

如今，找到有关 VBA 和/或 VB6 的信息变得非常罕见。

顺便说一句。这是针对 Excel 2016 的。

Tks

Answer 1

如果没有误会的话……

FSO...无论如何都不好。它只是一个错误的 API 包装器，用左鸡爪编写。 对于更复杂的情况，有纯 VB 和 API。

没有外部库和对象：

Public Sub sp_PrjFilMov()
Dim i As Byte
Dim sNam$, sExt$, sPthSrc$, sPthTgt$, sDir$

    sPthSrc = "V:\"
    sPthTgt = "R:\"

    sNam = "Empty_"
    sExt = ".dmy"   ' dummy

    For i = 1 To 5 ' create set of files for test
        Call sx_CrtFil(i, sPthSrc, sNam, sExt)
    Next

    sDir = Dir(sPthSrc & "*" & sExt, vbNormal) ' lookup for our files ..
    Do
        'Debug.Print sDir
        Select Case LenB(sDir)
            Case 0
                Exit Do         ' *** EXIT DO
            Case Else
                Call sx_MovFil(sPthSrc, sDir, sPthTgt) ' ..  & move them to another disk
                sDir = Dir
        End Select
    Loop
    Stop
End Sub

Private Sub sx_CrtFil(pNmb As Byte, pPth$, pNam$, pExt$)
Dim iFilNmb%
Dim sFilNam$
    sFilNam = pPth & pNam & CStr(pNmb) & pExt
    iFilNmb = FreeFile
    Open sFilNam For Output As #iFilNmb
    Close #iFilNmb
End Sub

Private Sub sx_MovFil(pPnmSrc$, pFnm$, pPthTgt$)
Dim sSrcPne$
    sSrcPne = pPnmSrc & pFnm
    'Debug.Print "Move " & sSrcPne & " --> " & pPthTgt
    Call FileCopy(sSrcPne, pPthTgt & pFnm)
    Call Kill(sSrcPne)
End Sub
'