是否可以重命名包含文件的文件夹？

Question

是否可以重命名包含文件的文件夹？下面的代码创建一个文件夹并将附件保存在其中。在我需要使用保存文件第二行中的日期重命名此文件夹之后。我可以检索日期，但代码无法重命名文件夹。

Option Explicit

Public Sub SalvarAnexo(Item)

    Dim Atmt As Attachment
    Dim FileName As String
    Dim objFSO As Object
    Dim objFile As Object
    Dim strData As String
    Dim caminhoTemp As String
    Dim caminhoFinal As String
    Dim caminhoFtp As String

    'MsgBox "Mensagem Recebida de " & Item.Sender & "!"
    caminhoTemp = "C:\temp"
    caminhoFinal = "C:\"


    For Each Atmt In Item.Attachments
        If Right$(Atmt.FileName, 3) = "TXT" Then
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            FileName = caminhoTemp & "\" & Atmt.FileName
            Atmt.SaveAsFile FileName
            Set objFile = objFSO.OpenTextFile(FileName, 1)
            strData = objFile.ReadLine
            strData = objFile.ReadLine
            strData = Left$(strData, 10)
            strData = Replace(strData, "-", "")

            caminhoFinal = caminhoFinal & strData

            Name caminhoTemp As caminhoFinal
            objFile.Close


            MsgBox "Your date is " & strData
        End If
    Next Atmt

End Sub

Answer 1

objFSO.MoveFolder("c:\oldname", "c:\newname")

"oldname"文件夹中的文件应该全部关闭。

编辑 per Tomalak below (thanks!):

您可以获取文件夹对象并重命名：

    Set fdr = objFSO.GetFolder("oldname")
    fdr.Name = "newname"

"oldname"文件夹中的文件应该全部关闭。

"oldname" 是 Fullsplec。

"newname"只是名字。

Answer 2

您可以直接执行此操作，而无需 FileScriptingObject 和

的开销

Name "C:\oldname" As "C:\newname"

在您的特定情况下，由于已经调用 FileScriptingObject 来打开文本文件，因此不会节省大量资金。

是否可以重命名包含文件的文件夹？

Is possible rename a folder with files?

outlook

vba