Repertoire par défaut ! windows 11

Version imprimable

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:

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

20/12/2023, 15h52
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/
21/12/2023, 04h57
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:

1 2 src = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)
Bonne journée,

@ +,

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:

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

@ tous,

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

Code:

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:

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

@+,

cincap

22/12/2023, 13h06
umfred

Je ne comprends pas trop la demande. Tu as écris dans un fichier. et tu souhaites pouvoir le relire ?
22/12/2023, 13h34
cincap

Bonjour à toutes et à tous,

@ umfred, merci de ta réponse.

En fait, 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.

Ors pour le moment il est indiqué dans le .vbs

Ce fichier.vbs doit me confirmer la durée (longueur) du .mp3, .mp4.

Mais pas de tracas, je pense que je vais le réaliser avec Delphi.

@+,

cincap

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Const LENGTH = 27
Const ForWriting = 2
Dim src,fso,FichierTXT,NewFichier
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
src = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
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 src & oFile & vbCrlf &_
"LENGTH : " &strLength 
 
FichierTXT = "Duree_Fichier.txt"
'Création du fichier texte "Duree_Fichier.txt"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForWriting, True)
'Ecriture des données de la variable "strLength" dans le fichier texte.
NewFichier.WriteLine(strLength)
'Destruction des objets
Set fso = Nothing
WScript.Quit

:king:

22/12/2023, 17h21
cincap

1 pièce(s) jointe(s)

@ hackoofr,

merci de ta solution, mais ce n'est pas cela que j'aimerai, je viens de terminer mon soft qui était prévu pour extraire les photos d'un fichier .mp4 et j'ai prévu un encart pour cutter des secondes avant ou à la fin d'un fichier .mp3.

La video ou la musique se charge par drag and drop sur le soft et son nom apparait dans un Tedit et si c'est un fichier .mp3, je clique sur "Durée fichier" et ensuite je règle déjà la fin en indiquant la durée exacte dans un Tspinedit.

Si je veux enlever les applaudissements du .mp3 qui dure 18 secondes je règle le Tspinedit (début) sur 00:00:18 et je découpe ou la même chôse pour la fin et j'obtiens un new .mp3.

Voici la photo du soft :

Merci à tous,

@+,

cincap
22/12/2023, 17h28
hackoofr

Donc c'est :resolu:
N'oubliez pas donc de nous partager votre soft avec son code source :king:
@+