[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

[x69asterix]

risolto con:

Dim fso As FileSystemObject
Dim f As Folder
Dim ff As Folders
Private Sub Command1_Click()


Set fso = New FileSystemObject

Set ff = fso.GetFolder("c:\").SubFolders

For Each f In ff
   ' Debug.Print f.Name
   List1.AddItem f.Path
Next
End Sub

Private Sub List1_Click()
Set fso = New FileSystemObject

Set ff = fso.GetFolder(List1.Text).SubFolders
List1.Clear
For Each f In ff
   ' Debug.Print f.Name
   List1.AddItem f.Path
Next
End Sub

[x69asterix]

Originariamente inviato da x69asterix
risolto con:

Dim fso As FileSystemObject
Dim f As Folder
Dim ff As Folders
Private Sub Command1_Click()


Set fso = New FileSystemObject

Set ff = fso.GetFolder("c:\").SubFolders

For Each f In ff
   ' Debug.Print f.Name
   List1.AddItem f.Path
Next
End Sub

Private Sub List1_Click()
Set fso = New FileSystemObject

Set ff = fso.GetFolder(List1.Text).SubFolders
List1.Clear
For Each f In ff
   ' Debug.Print f.Name
   List1.AddItem f.Path
Next
End Sub

con questo codice è possibile tornare alla directory precedente?