Comment lister les fichiers d'un disque dur (ou autre ...)

Commenter

Contenu du snippet

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 !!

A voir également

S'inscrire maintenant

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.

Du même auteur (FrostByte)