Macro para criar pasta se não existir

[Lamcarter]

olá, nao tenho muito conhecimento com VBA e nao sei utilizar a função "IF", estou tentando fazer uma macro para que ela verifique se existe uma determinada pasta e se a pasta existir executar o backup na pasta, e, caso não exista a pasta, criá-la. será que consegui explicar. A parte do backup já ta funcionando certinho e a parte de criar também, porém quando é executada pela segunda vez da erro dizendo que a pasta já existe.

A macro é esta:

Sub SaveAsXLS()

Dim linha, pasta

Set linha = CreateObject("Scripting.FileSystemObject")

Set pasta = linha.CreateFolder("c:\Backup Sistema Processos")

CreateFolderDemo = pasta.Path

End If

On Error GoTo Erro

Const BKP_Processos As String = "C:\Backup Sistema Processos\Processos"

ThisWorkbook.SaveCopyAs Filename:=BKP_Processos & Format(Now(), "ddmmyyyy") & ".xls"

MsgBox "Backup realizado com sucesso ..... Arquivo salvo em C:\Backup Sistema Processos\"

Fim:

Exit Sub

Erro:

MsgBox "Erro ao criar backup:" & vbCrLf & _

Err.Description, vbOKOnly + vbCritical, "Atenção"

Err.Clear

Resume Fim

End Sub

[deejaywesley]

olá lamcarter

tente acresentar esta linha...

Sub SaveAsXLS()

Dim linha, pasta

Set linha = CreateObject("Scripting.FileSystemObject")

Set pasta = linha.CreateFolder("c:\Backup Sistema Processos")

CreateFolderDemo = pasta.Path

On Error Resume Next

End If

On Error GoTo Erro

Const BKP_Processos As String = "C:\Backup Sistema Processos\Processos"

ThisWorkbook.SaveCopyAs Filename:=BKP_Processos & Format(Now(), "ddmmyyyy") & ".xls"

MsgBox "Backup realizado com sucesso ..... Arquivo salvo em C:\Backup Sistema Processos\"

Fim:

Exit Sub

Erro:

MsgBox "Erro ao criar backup:" & vbCrLf & _

Err.Description, vbOKOnly + vbCritical, "Atenção"

Err.Clear

Resume Fim

End Sub

obs: Tambem nao sou bom em VBA

foi so uma Sugestão....

espero ter ajudado!

um abraço!

[deejaywesley]

estou em duvida se a coloquei no lugar certo....

[Lamcarter]

estou em duvida se a coloquei no lugar certo....

Funcionou perfeitamente. Muito Obrigado mesmo pela ajuda. aproveitando, como colocar tópico resolvido?

[deejaywesley]

beleza!

precisando estamos ai...

preocupa nao! os moderadores que colocam resolvido!

um abraço!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.