CodeS-SourceS
Rechercher un code, un tuto, une réponse

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 526 fois - Téléchargée 47 fois

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

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.