Bonjour à toutes et à tous,

J'aimerai pouvoir éviter de mettre le chemin de mon fichier puisque le script sera dans le même dossier que mon mp3.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const LENGTH = 27
src = "Code_Lire derniere ligne\"
ext = "mp3"
 
dim oShell  : Set oShell  = CreateObject("Shell.Application")
dim oFolder : Set oFolder = oShell.Namespace(src)
dim oFSO    : Set oFSO    = CreateObject("Scripting.FileSystemObject")
 
For Each strFileName in oFolder.Items
If LCase(oFSO.GetExtensionName(strFileName.Name)) = LCase(ext) Then
	If Split(oFolder.GetDetailsOf(strFileName,FILE_NAME) Then
        Msg = oFolder.GetDetailsOf(strFileName,FILE_NAME)) 
	  wscript.echo msg
	End If
End If
Next
Existe t'il un moyen de créer un fichier .txt pour récupérer l'info ?

En vous remerciant.

@+,

cincap