Discussion :

[cincap]

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

[umfred]

En utilisant les chemins relatifs : . pour le dossier courant, .. pour le chemin parent ?
sinon avec WScript.ScriptFullName on doit récupérer le chemin du script (avec son nom)
path = Replace(WScript.ScriptFullName, WScript.ScriptName, "") pour retirer le nom du script du chemin.
https://www.developpez.net/forums/d9...rant-d-script/

[cincap]

Bonjour à toutes et à tous,

@ umfred, merci de ta réponse et j'ai testé c'est ok, mais pour la 2ième question aurais tu une idée ?

En fait par drag and drop sur mon application, je choisis un fichier .mp3 et je le référencie dans un Tlabel ou Tedit et lorsque je charge le .vbs, ce fichier .mp3 est choisis.

Je continue aussi à chercher.

Pour le chemin relatif en cherchant, j'avais fait comme ceci :

Code :

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

1
2
 
src = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)

Bonne journée,

@ +,

cincap

[cincap]

J'ai testé ceci ce matin, la création du fichier texte = ok et mais je cale sur l'écriture de l'information.

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
19
20
21
22
23
24
25
26
27
28
src =Replace(WScript.ScriptFullName, WScript.ScriptName, "")
 'Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)

Dim oShell  : Set oShell  = CreateObject("Shell.Application")
Dim oFolder : Set oFolder = oShell.Namespace(src)
Dim oFile   : Set oFile   = oFolder.ParseName("emma.mp3")
Dim strLength : strLength = oFolder.GetDetailsOf(oFile, LENGTH)
WScript.Echo strLength 

'*** Préparation de l'environnement
Const ForAppending = 8
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "Duree_Fichier.txt"

'*** Création du fichier texte "Duree_Fichier.txt"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)

'*** Ajout de données dans la variable "data".
data = "oFolder.GetDetailsOf(oFile, LENGTH)"

'*** Ecriture des données de la variable "data" dans le fichier texte.
NewFichier.WriteLine(data)

'*** Destruction des objets
Set fso = Nothing

WScript.Quit

@+,

cincap

[cincap]

@ tous,

Voila pour le fichier .txt c'est aussi ok, peut être plus simple ? :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
src =Replace(WScript.ScriptFullName, WScript.ScriptName, "")
 'Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)
 
Dim oShell  : Set oShell  = CreateObject("Shell.Application")
Dim oFolder : Set oFolder = oShell.Namespace(src)
Dim oFile   : Set oFile   = oFolder.ParseName("emma.mp3")
Dim strLength : strLength = oFolder.GetDetailsOf(oFile, LENGTH)
 
Msg = oFolder.GetDetailsOf(oFile, LENGTH)
 
WScript.Echo strLength 
 
'*** Préparation de l'environnement
Const ForAppending = 8
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "Duree_Fichier.txt"
 
'*** Création du fichier texte "Duree_Fichier.txt"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)
 
'*** Ajout de données dans la variable "data".
Data = oFolder.GetDetailsOf(oFile, LENGTH)
 
'*** Ecriture des données de la variable "data" dans le fichier texte.
NewFichier.WriteLine(Msg)
 
'*** Destruction des objets
Set fso = Nothing
 
WScript.Quit

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

Code :

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

1
2
 
Dim oFile   : Set oFile   = oFolder.ParseName("emma.mp3") 'fichier extérieur pour choix (valeur string)

@+,

cincap

[umfred]

Je ne comprends pas trop la demande. Tu as écris dans un fichier. et tu souhaites pouvoir le relire ?