Tout d'abord ce code n'est pas de moi, mais je le poste sur ce site à votre disposition...
IL FAUT METTRE L'EXECUTABLE A LA RACINE DU DISQUE
!! ATTENTION !!
CHEZ MOI POUR UN DISQUE PLEIN DE 800 MO ENVIRON, LE FICHIER TEXTE PESE 543 ko Ouch !!
Source / Exemple :
'A METTRE DANS UN MODULE
Sub RecurseTree(CurrentPath$)
Dim i, n
Dim FileName$, DirectoryList$()
FileName$=Dir(CurrentPath$)
Do While FileName$ <> ""
Print #1, CurrentPath$ & FileName$
FileName$=Dir
Loop
FileName$=Dir(CurrentPath$, vbDirectory)
Do While FileName$ <> ""
If FileName$ <> "." and FileName$ <> ".." then
If GetAttr(CurrentPath$ & FileName$) and vbDirectory then
n=n+1
Redim Preserve DirectoryList$(n)
DirectoryList$(n)=CurrentPath$ & FileName$
end if
end if
FileName$=Dir
loop
For i=1 to n
RecurseTree DirectoryList$(i) & "\"
next i
end sub
'A METTRE DANS LA FORM
Private Sub Form_Load()
Dim StartPath$
Me.Show
Print "Je bosse..."
StartPath$="c:\"
Open "Files.txt" For Output As #1
RecurseTree StartPath$
Close #1
unload me
end sub
Conclusion :
Voilà c'est fait si vous avez besoin d'explication mailez-moi
Ah !! autre chose si kelk'un pouvez me dire comment faire pour lister les unités d'un systeme (Hdd, Floppy, CDrom, Ramdisk...) et l'inclure dans mon programme pour povoir selectionner une unité ce serait sympa !!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.