[Resolvido]Mover arquivos entre pastas via VBA

Boa noite,

este código do JPaulo já esta rodando em minha rotina...

Código:

file = "NF " & frmq!CboCentrodeCusto.Column(0) & " " & Format(DateAdd("m", -1, Date), "mmmm yyyy") & ".pdf" ' nome do ficheiro
    sfol = CurrentProject.Path & "\trabalhando\" ' caminho inicial
    dfol = CurrentProject.Path & "\enviados\" ' caminho destino
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " não existet!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
    fso.MoveFile (sfol & file), dfol
    Else
    MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
    End If

...porem, dentro da pasta enviados que é o destino, preciso que ele mova para uma subpasta que será criada a cada mês, novembro 2017, dezembro 2017, etc...

e aqui preciso de ajuda, não consigo

tentei assim mas não deu

Código:

(CurrentProject.Path & "\enviados\" & Format(DateAdd("m", 0, Date), "mmmm yyyy"))

No aguardo

Para formatar a data e Obter: novembro 2017 utilize assim:

Format(Date(),"mmmm yyyy")

Olá a todos,
Aparentemente se cria as pasta manualmente o que está a faltar é a barra no fim "\".

Veja se faz o que pretende (está a criar a pasta caso não exista):

Código:

file = "NF " & frmq!CboCentrodeCusto.Column(0) & " " & Format(DateAdd("m", -1, Date), "mmmm yyyy") & ".pdf" ' nome do ficheiro
    sfol = CurrentProject.Path & "\trabalhando\" ' caminho inicial
    dfol = CurrentProject.Path & "\enviados\" & Format(Date, "mmmm yyyy") & "\" ' caminho destino
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(dfol) Then
        fso.CreateFolder (dfol)
    End If
    
    If Not fso.FileExists(sfol & file) Then
        MsgBox sfol & file & " não existet!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
        fso.MoveFile (sfol & file), dfol
    Else
        MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
    End If
End Sub

Abraço

Obrigado pela atenção senhores,

exatamente isso Teixeira, muito obrigado pela ajuda, resolvido.


Abraço


Fabio

Olá a todos.
Que bom que resolveu!

Obrigado pelo retorno, o fórum agradece.

Abraço