20200510
obternir la liste de fichioer recursibve dir /s /b
C:\Users\adminpo\Desktop\Sl Mot\201610-Baroracisme-VoletF? … F+QO-FichierClient?.labels.csv
C:\Users\adminpo\Desktop\Sl Mot\201610-Baroracisme-VoletF? … F+QO-FichierClient?.questions.csv
C:\Users\adminpo\Desktop\Sl Mot\201610_spsstocsv_again
C:\Users\adminpo\Desktop\Sl Mot\201711-Baro racisme-Volet FaF?.csv
C:\Users\adminpo\Desktop\Sl Mot\201711-Baro racisme-Volet FaF?.sav
C:\Users\adminpo\Desktop\Sl Mot\201711-Baro racisme-Volet F…F-v2_parNonna.csv
C:\Users\adminpo\Desktop\Sl Mot\20171124
C:\Users\adminpo\Desktop\Sl Mot\2018
C:\Users\adminpo\Desktop\Sl Mot\20180803
C:\Users\adminpo\Desktop\Sl Mot\20190806_wetransfer-a75c8e
C:\Users\adminpo\Desktop\Sl Mot\20200314_deux_‚chelles
C:\Users\adminpo\Desktop\Sl Mot\ALETUDE.txt
C:\Users\adminpo\Desktop\Sl Mot\baro.txt
C:\Users\adminpo\Desktop\Sl Mot\Bug20181218?
C:\Users\adminpo\Desktop\Sl Mot\bugmusu
C:\Users\adminpo\Desktop\Sl Mot\Command Prompt.lnk
C:\Users\adminpo\Desktop\Sl Mot\debug
transformer la liste en appel de find
set fs = CreateObject?("Scripting.FileSystemObject?")
Set a = fs.CreateTextFile?("liste.bat", True)
Set b = fs.openTextFile("liste.txt")
while not b.atendofstream
lu=b.readline
a.writeline "find /i $debug "&lu&" >> find.lst"
wend
executer le .bat