[VB6] Leggere la directory dei documenti

[x69asterix]

ciao,
ho un problema con questo codice, praticamente non riesco a visualizzare la directory "C:\Documents and Settings\nome\Documenti" dell' user corrente, invece C:\Documents and Settings\All User\Documenti, me la visualizza correttamente, perchè?

Private Sub Form_Load()
MyPath = "C:\"   ' Imposta il percorso.
MyName = Dir(MyPath, vbDirectory)   ' Recupera la prima voce.
Do While MyName <> ""   ' Avvia il ciclo.
   ' Ignora la directory corrente e quella di livello superiore.
   If MyName <> "." And MyName <> ".." Then
      ' Usa il confronto bit per bit per verificare se MyName è una directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
      '   Debug.Print MyName   ' Visualizza la voce solo
      List1.AddItem MyPath & MyName
      End If   ' se rappresenta una directory.
   End If
   MyName = Dir   ' Legge la voce successiva.
Loop
End Sub

Private Sub List1_Click()
MyPath = List1.Text & "\"  ' Imposta il percorso.
MyName = Dir(MyPath, vbDirectory)   ' Recupera la prima voce.
Do While MyName <> ""   ' Avvia il ciclo.
   ' Ignora la directory corrente e quella di livello superiore.
   If MyName <> "." And MyName <> ".." Then
      ' Usa il confronto bit per bit per verificare se MyName è una directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
      '   Debug.Print MyName   ' Visualizza la voce solo
      List1.AddItem MyPath & MyName
      
      End If   ' se rappresenta una directory.
   End If
   MyName = Dir   ' Legge la voce successiva.
Loop

End Sub