Ultradoux a écrit :
Bonjour !
Est-il possible de modifier le code de sorte qu'il :
- Recherche tous les fichiers texte dont l'extension est .m3u
- Créé un autre fichier .spl contenant le texte du .m3u converti en UCS-2 Litlle Endian
Code :
- En fait j'ai déjà un peu modifier :
- ' Convert Unicode to Ascii
- Const ForReading = 1, ForWriting = 2, ForAppending = 8
- Const ModeAscii = 0, ModeUnicode = -1
- Dim fso, f_in, f_out
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f_in = fso.OpenTextFile("test.m3u", ForReading,, ModeAscii)
- Set f_out = fso.OpenTextFile("test.spl", ForWriting, true, ModeUnicode)
- Do Until f_in.AtEndOfStream
- f_out.Write f_in.Read(1)
- Loop
- f_in.Close
- f_out.Close
|
Donc là il converti bien de ANSI vers UCS-2 Little Endian, mais il faudrait mettre des variable pour qu'il traite tous les .m3u du dossier, et ça je sais pas faire ! Je n'y connais rien en vbs Merci !
|