Postada em 12/08/2009 17:25 hs
Olá Pessoal!
É a minha primeira vez aqui e estou precisando de uma ajuda.
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
Valeu pela ajuda!
Abraços a todos
|
