Commande Files

Salut!
Je suis bloqué sur un problème à priori simple... mais qui me bloque totalement!

Voila: je veux créer en LB un pgm qui (pour commencer) liste l'ensemble des fichiers et qui retrouve tous les doublons, pour me permettre ensuite de les éliminer...

Aucun pb pour lister l'ensemble des répertoires de tous les lecteurs du PC.

Il trouve bien tous les lecteurs présents MAIS il ne travaille correctement que pour le lecteur c: (celui du DD par défaut)
Pour les lecteurs a: d: e: etc... il m'indique que la commande FILES retourne la présence de 0 dossier et 0 fichier, ce qui est faux...

Avez-vous une idée?

Par avance Merci.

Salut, je pense que tu trouveras tes réponses ici.
http://lbasic.atomysk.com/forum/viewtopic.php?t=1478

Sinon, est-ce que tu peux me dire ce qu'est un doublon ?? merci !

Merci pour ton aide

1°. un doublon, c'est un enregistrement de double (ou plus) et qui peut être supprimé dans une base de données (ex: avoir inscrit à deux endroits de son agenda le nom et le no d'un ami)

2°. J'ai bien regardé le lien dont tu me parles; il s'agit bien d'un pgm de dédoublonnage MAIS ce n'est pas le dédoublonnage qui me pose pb mais plutôt le fait que la cde files ne fonctionne que sur le lecteur c: (disque dur principal) et indique 0 fichier 0 dossier pour tous les autres lecteurs présents (d: e: etc.)

A+
Merci

Code:: '
' Routine pour lister les sous dossiers contenus dans un dossier
' de Stefan Pendl, Guru de LB, et en plus, un homme charmant !
'

' Maintenant pour changer cette routine pour qu'elle puisse
' copier le dossier dans un autre dossier, il suffit de
'
' 1- créer un dossier destination
' 2- y copier les fichiers
' 3- répéter 1 et 2 pour chaque sous dossier
'
'
dim Info$(1,1)
StartFolder$ = "D:\alix\building\test" <--- 'votre dossier ici
call SearchFolders StartFolder$
end

sub SearchFolders Folder$
files Folder$, Info$(
numSubFolders = val(Info$(0,1))
numFiles = val(Info$(0,0))
for count = 1 to numSubFolders
if FoundFolders$ = "" then
FoundFolders$ = Info$(0,2); Info$(0,3); Info$(numFiles + count,1)
else
FoundFolders$ = FoundFolders$; ";"; Info$(0,2); Info$(0,3); Info$(numFiles + count,1)
end if
next
leftFolders = numSubFolders
while leftFolders > 0
call SearchFolders word$(FoundFolders$, leftFolders, ";")
leftFolders = leftFolders - 1
wend
print " "; Folder$
end sub