Couplage de script VBS
Fermé
smully
Messages postés
2
Date d'inscription
vendredi 23 décembre 2011
Statut
Membre
Dernière intervention
23 décembre 2011
-
23 déc. 2011 à 10:27
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 déc. 2011 à 21:28
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 déc. 2011 à 21:28
A voir également:
- Couplage de script VBS
- Script vidéo youtube - Guide
- Vbs windows - Guide
- Script bat - Guide
- Executeur de script - Télécharger - Édition & Programmation
- Couplage télécommande tcl impossible - Forum Téléviseurs
4 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 23/12/2011 à 12:40
Modifié par lermite222 le 23/12/2011 à 12:40
Bonjour,
Si je comprend bien tu veux avoir les noms et données des fichiers.
Si oui, Pas besoin de ta deuxième fonction, l'objet Fso fais cela très bien, même plus.
A+
Edit: Pas bien lu, tu veux les dimensions d'un bmp et effectivement Fso ne fait pas ça.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Si je comprend bien tu veux avoir les noms et données des fichiers.
Si oui, Pas besoin de ta deuxième fonction, l'objet Fso fais cela très bien, même plus.
A+
Edit: Pas bien lu, tu veux les dimensions d'un bmp et effectivement Fso ne fait pas ça.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
23 déc. 2011 à 12:51
23 déc. 2011 à 12:51
En extrapolant un peu
A+
Const DIMENSIONS = 31
Const WIDTH = 162
Const HEIGTH = 164
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO, oFl
Set oShell = CreateObject("Shell.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
Set oFolder = oShell.Namespace(stRep)
For Each oFl In oFSO.GetFolder(stRep).Files
Set oFile = oFolder.ParseName(oFl.Name)
strDimensions = oFolder.GetDetailsOf(oFile, DIMENSIONS)
strWidth = oFolder.GetDetailsOf(oFile, WIDTH)
strHeigth = oFolder.GetDetailsOf(oFile, HEIGTH)
WScript.Echo oFl.Name & "Dimensions: " & strDimensions & vbNewLine & _
"Width: " & strWidth & vbNewLine & _
"Height: " & strHeigth
Next
End If
A+
smully
Messages postés
2
Date d'inscription
vendredi 23 décembre 2011
Statut
Membre
Dernière intervention
23 décembre 2011
23 déc. 2011 à 15:17
23 déc. 2011 à 15:17
ok merci cool ça fonctionne par contre ça n'écrit pas dans un fichier....
;...je suis chiant
:-)
;...je suis chiant
:-)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
23 déc. 2011 à 21:28
23 déc. 2011 à 21:28
Oui :-)
Je ne connais pas bien le VBScript, je serais plutôt pour les autres VB
Cherche du côté de Open pour ouvrir un fichier du genre..
Open "Fichier.txt" for output as #1
Pour écrite voir Write du genre
Write #1, oFl.Name , "Dimensions: " , strDimensions, _
"Width: " , strWidth & vbNewLine, _
"Height: ", strHeigth
Et quand fini : Close #1
Vois ce que tu peu faire avec ça.
A+
Je ne connais pas bien le VBScript, je serais plutôt pour les autres VB
Cherche du côté de Open pour ouvrir un fichier du genre..
Open "Fichier.txt" for output as #1
Pour écrite voir Write du genre
Write #1, oFl.Name , "Dimensions: " , strDimensions, _
"Width: " , strWidth & vbNewLine, _
"Height: ", strHeigth
Et quand fini : Close #1
Vois ce que tu peu faire avec ça.
A+
