Abrir pasta específica (Resolvido)

[Guima]

Pelo método GetOpenFilename é possível exibir uma caixa de diálogo, porém gostaria de exibir uma caixa específica, por exemplo, abrir a pasta Download em Meus Documentos. Alguém sabe como realizar tal feito ?

Abraços

[Mauro Coutinho]

Defina o novo Diretorio usando ChDir :

Código: Selecionar todos

Sub Abrir_LocalPasta()

    Set fs = CreateObject("Scripting.FileSystemObject")
    
    MsgBox CurDir ' Só para certificar do Caminho atual
    
    'Coloque aqui o Caminho e Pasta que deseja abrir
    ChDir "M:\MeusArquivos"
    
    MsgBox CurDir
    
    'Definido o diretorio, a caixa de dialogo abrirá no local definido acima
    FiletoOpen = Application _
    .GetOpenFilename("Excel (.xls), .xls", , "Selecione a planilha")
    
    If FiletoOpen <> False Then
        WdlFolder = fs.getParentFolderName(FiletoOpen)
        WdlNome = fs.GetFileName(FiletoOpen)
    Else
        Exit Sub
    End If
    
End Sub

Agora se for para alterar tambem a Letra da Unidade, utilize :

ChDrive "T" 'Se trocar o diretorio sem trocar a letra não funciona
ChDir "T:\MeusArquivos"


abraços

[Guima]

Na mosca Mauro !!!

Valeu