TREEVIEW EXPLORER

Commentaire de mafalda13 le 22/03/2007 14:34:56

bonjour,

je cherche a faire la meme chose sous access.

j'utilise la fonction suivante

Private Sub test(myPath As String, currentKey As String)
'mypath, ex: "C:\MonRep\"
'currentKey = mon repertoire en cours, ex: MonRep

On Error GoTo err_test

Dim myname As String
myname = Dir(myPath, vbDirectory)

Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(myPath & myname) And vbDirectory) = vbDirectory Then
Me.TreeView.Nodes.Add currentKey, 4, myname, myname, "IMG_FOLD"

'rappel de cette fonction sur le repertoire identifié
test myPath & myname & "\", myname

End If
End If

myname = Dir
Loop
Exit Sub
    
err_test:
    Exit Sub
End Sub

Cela fonctionne correctement jusqu'a ce que je commence a remonter,
j'obtient alors l'erreur :

"Argument ou appel de procédure incorrect"

sur "myname = Dir"

Quelqu'un peut il m'aider?