Bom dia pessoal, preciso de ajuda com um código em Vba, basicamente o que eu quero fazer e no diretório que se encontra a pasta de trabalho do Excel ele crie uma pasta chamada "Save", e dentro dessa pasta Save ele pegue o que esta escrito na célula A1 e crie outra pasta com o nome da célula, ate ai tudo bem consegui fazer, mas após ele criar a pasta com o nome da célula A1 eu gostaria que ele criasse dentro dela uma pasta chamada "info" e salvasse o arquivo em .txt dentro da pasta info. as duas primeiras pasta eu consegui mas a 3º pasta e salvar dentro dela não consegui, alguém pode me ajudar?
Sub CriarPasta()
'Cria a pasta Raiz aonde esta a pasta de trabalho
Dim raiz As Object, save
Set raiz = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
save = ThisWorkbook.Path & "\" & "Save"
If Not raiz.FolderExists(save) Then
raiz.CreateFolder (save)
End If
'Cria a pasta com o nome da celula A1 dentro da pasta Save
Dim sub_p As Object, subPasta
Set sub_p = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
subPasta = save & "\" & Planilha1.Range("A1").Text
If Not sub_p.FolderExists(subPasta) Then
sub_p.CreateFolder (subPasta)
End If
'Cria uma pasta chamada info dentro da pasta criada com o nome da celula A1
Dim sub_p1 As Object, info_p
Set sub_p1 = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
sub_p1 = save & "\" & subPasta & "\" & "info"
If Not sub_p1.FolderExists(info_p) Then
sub_p1.CreateFolder (info_p)
End If
'Salva em txt dentro da pasta info
Dim Nome As String
Nome = Planilha1.Range("A1").Text
ActiveWorkbook.SaveAs Filename:=save & "\" & subPasta & "\" & info_p & "\" & Nome & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub