Discussion :

[cincap]

Bonjour à toutes et à tous,

Existe t'il un moyen de créer un fichier .txt pour récupérer l'info ?

Et y a t'il possibilité d'utiliser "ext" depuis l'extérieur du script ?

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
17
18
Const LENGTH = 27
src = src = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) 'Dossier du script

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

En vous remerciant.

@+,

cincap

[cincap]

Bonsoir à toutes et à tous,

Pour le fichier texte c'est ok.

Reste plus que le problème de récupérer le nom du fichier depuis un texte en dehors du .vbs,

Je m'explique je charge un fichier .mp3 depuis un autre programme et je référencie son nom dans un label de type String, mon fichier.vbs doit utiliser le .mp3 dont le nom est dans le label.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5

ext = "mp3"

If LCase(oFSO.GetExtensionName(strFileName.Name)) = LCase(ext) Then 'Ext fichier dont le nom est à l'extérieur du vbs.

@+,

cincap

[cincap]

Bonsoir à tous,

Je ferme ce topic car j'ai trouvé une autre solution (en Delphi) qui me satisfait pour le nom du fichier.mp3.

@+,

cincap