Sergioris

Valeu Kuroi!! O caminho é por aí mesmo... Só não estou conseguindo implementar essa opção no meu código :wacko: Abraços

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 Sub Já procurei por todo lugar e não encontro nada a respeito. Valeu pela ajuda! Abraços a todos