Tenho um código aqui para ler a pasta Meus Documentos no Windows XP em português.
Podem me ajudar como faço para ler essa pasta no XP em Inglês e no Vista?
Segue o meu código:
Private Sub Command2_Click()
On Error GoTo errro
Drive1.Drive = Mid(Environ$("USERPROFILE"), 1, 2)
Dir1.Path = Environ$("USERPROFILE") & "" & "meus documentos"
errro:
If Err Then Exit Sub
End Sub
Já procurei por todo lugar e não encontro nada a respeito.
Pergunta
Sergioris
Olá Pessoal!
Tenho um código aqui para ler a pasta Meus Documentos no Windows XP em português.
Podem me ajudar como faço para ler essa pasta no XP em Inglês e no Vista?
Segue o meu código:
Private Sub Command2_Click() On Error GoTo errro Drive1.Drive = Mid(Environ$("USERPROFILE"), 1, 2) Dir1.Path = Environ$("USERPROFILE") & "" & "meus documentos" errro: If Err Then Exit Sub End SubJá procurei por todo lugar e não encontro nada a respeito.
Valeu pela ajuda!
Abraços a todos
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.