Partageons nos connaissances

‘nous listons l’ensemble des fichier MP3 se trouvant dans le dossier souhaiter Dim ObjShell, Afile, Thefiles, avecextension, sansextension Set FSo = WScript.CreateObject(« Scripting.FileSystemObject ») set Afolder=FSO.GetFolder(« E:\test ») Set TheFiles = Afolder.Files On Error Resume Next For Each AFile In TheFiles If UCase(FSO.GetExtensionName(AFile.Path)) = « MP3 » then avecextension=FSO.GetAbsolutePathName(AFile) sansextension=avecextension’-3 caracteres MsgBox(sansextension) End if Next ‘Dim oShell ‘Set oShell = WScript.CreateObject (« WSCript.shell ») ‘oShell.Run (« cmd /K C:\windows\system32\lame.exe ... Lire la suite »