Récupération d'une liste de fichier dans un Array

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupération d'une liste de fichier dans un Array

mezzomix23

Bonjour à tous !

Voilà, j'ai essayé de faire ce que je voulais en vbscript, mais vu le résultat final que je souhaite, on m'a conseillé le hta. Je viens à peine de commencer et je suis déjà bloqué :-(

Cette première fonction doit me permettre de parcourir un dossier et d'en lister tous les fichiers avec une extension .cmd. Ca j'arrive à le faire. Maintenant, et ceci dans le but d'une utilisation ultérieure, j'aimerais qu'au lieu de m'aficher bêtement cette liste, ces données soient stockées dans un array ou quelque chose de similaire afin de pouvoir les récupérer dans l'interface html avec une "case à cocher" devant chaque nom, et c'est là que je bloque. J'ai essayé plusieurs versions, soit il m'affiche tout d'un bloc, soit il ne m'affiche que le dernier.

Voici le code que j'essaye de faire fonctionner :

Code :

<html>
<head>
<title>Random</title>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs
Dim Markets()
ReDim Markets(30)
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For i = 1 to 30
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
Markets(i) = CMDs.name
End If
Next
Next
txtOutput.innerhtml = Markets(1)
document.title = "List of Markets"
End Sub
</script>
</head>
<body onload='List()'>
<div id='txtOutput'></div>
</body>
</html>

Merci de votre aide :-)

Publicité

pc75

Bonjour,

A mon avis, cette ligne

txtOutput.innerhtml = Markets(1)

devrait se trouver dans la boucle For

mezzomix23

C'est bien dans ce sens là que je suis parti. J'ai avancé un peu depuis tout à l'heure, mais c'est pas encore ça.

Voici le nouveau code :

Code :

<html>
<head>
<title>Random</title>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
For i = 0 to UBound(Markets) - 1
Market = "<INPUT type='checkbox' name='nom' value=''> " & Markets(i)
Next
txtOutput.innerhtml = Market
document.title = "List"
End Sub
</script>
</head>
<body onload='List()'>
<div id='txtOutput'></div>
</body>
</html>

Lors de l'affichage, il ne m'affiche que le dernier enregistrement, il ne tient pas compte des précédants :-( Où est mon erreur ?

pc75

Re,

Et si tu fais :

For i = 0 to UBound(Markets) - 1
Market = "<INPUT type='checkbox' name='nom' value='" & Markets(i) & "'>"
Next

mezzomix23

J'ai un bel écran tout blanc avec une case à cocher unique et orpheline de son texte :-(

pc75

Re,

Et ça ?

For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='nom' value='" & Markets(i) & "'>" & vbCrlf
Next

mezzomix23

Non, plus, mais grâce à toi, j'ai pu mettre ça :

Code :

For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='nom' value=''> " & Markets(i) & "<br>"
Next

et là ça marche nickel... je m'attaque à la suite

mezzomix23

Bon un nouveau problème :-(

Voici le code :

Code :

<html>
<head>
<title>Random</title>
<script language="javascript">
<!--
function CheckAll()
{
for (var c=0;c<document.forms[0].elements.length;c++)
{
var e = document.forms[0].elements[c];
if (e.name != 'allbox')
e.checked = document.MarketList.allbox.checked;
}
}
//-->
</script>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='" & Markets(i) & "'> " & Markets(i) & "<br>"
Next
Market = Market & "<BR> <input name='allbox' type='checkbox' value='Check All' onClick='CheckAll();' /><B>Select/Unslect All</B>"
Market = Market & "<BR><BR> <input type=button value='Start DFS Replication' onClick=StartDFSReplication()> <input type=button value=Cancel onClick=window.close()>"
txtOutput.innerhtml = Market
document.title = "List"
End Sub
Sub StartDFSReplication()
End Sub
</script>
</head>
<body onload='List()'>
<form name="MarketList">
<div id='txtOutput'></div>
</form>
</body>
</html>

Donc tout s'ouvre bien, je peux sélectionner les cases que je veux, la case à cocher "Select/Unselect All" fonctionne bien aussi. Le bouton "Cancel", pas de soucis. On arrive au bouton "Start DFS Replication". J'ai compris qu'il fallait créer un nouveau "Sub... End Sub", ce que j'ai fait.

Maintenant, ce que je n'arrive pas à faire, c'est de faire un check des cases qui sont cochées et de les récupérer pour lancer une nouvelle commande. En gros, je veux que le fichier .cmd associé à chaque case à cocher activée soit exécuté.

Merci

pc75

C'est encore moi,

Si tu fais une boucle sur ton tableau (For i = 0 to UBound(Markets) - 1), comme tes ChekBox portent le nom des variables du tableau, tu dois pouvoir faire un test du genre : si Markets(i).checked = true ...)

C'est juste une idée.

mezzomix23

Ca a pas l'air de fonctionner malheureusement

Publicité

mezzomix23

Bon je sais toujours pas comment récupérer les valeurs qui me manquent, mais je chercherais plus tard, à moins que quelqu'un n'ait la solution.

Toujours dans le même script, je cherche à générer un popup web depuis le script de base afin de pouvoir y entrer un nom d'utilisateur et un mot de passe (c'est surtout pour lui l'interface web, car je peux masquer les lettres/chiffres entrés) et récupérer les variables.

J'ai pas mal cherché et j'ai trouvé plusieurs bout de code que j'ai essayé de mettre ensemble, mais cela ne colle pas voici ce que j'essaye de faire fonctionner en vain :

Code :

Sub StartDFSReplication()
On Error Resume Next
Set oIE = CreateObject("InternetExplorer.Application" )
With oIE
.RegisterAsDropTarget = False
.Resizable = False : .FullScreen = True
.width = 400 : .height = 200
.Menubar = True
.Navigate "about:blank"
.document.open
.document.write _
"<html><head><" & "SCRIPT LANGUAGE='VBScript'>" _
& "Sub RunScript" _
& "OKClicked.Value = 'OK'" _
& "End Sub" _
& "Sub CancelScript" _
& "OKClicked.Value = 'Cancelled'" _
& "End Sub" _
& "</" _
& "SCRIPT><title>Password _</title></head>" _
& "<BODY BGCOLOR='#C6D7DA'>" _
& "Please enter your administrative name and password :</p>" _
& "<font size='2' face='Arial'>" _
& "Username:    </font><font face='Arial'>" _
& "<input type='text' name='UserName' size='30'></p>" _
& "<font size='2' face='Arial'>" _
& "Password:    </font><font face='Arial'>" _
& "<input type='password' name='UserPassword' size='30'></font></p>" _
& "<input type='hidden' name='OKClicked' size = '20'>" _
& "<input id=runbutton class='button' type='button' value=' OK '" _
& "name='ok_button' onClick='RunScript'>" _
& "   " _
& "<input id=runbutton class='button' type='button' value='Cancel'" _
& "name='cancel_button' onClick='CancelScript'></body></html>"
.document.close
.document.all.user.focus
oSH.Appactivate "Password _"
document.Visible = True
Do While (.document.body.all.OKClicked.Value = "" )
Wscript.Sleep 250
Loop
strName = .document.body.all.UserName.Value
strPassword = .document.body.all.UserPassword.Value
strButton = .document.body.all.OKClicked.Value
oIE.Quit
Wscript.Sleep 250
End With
End Sub

Merci

mfauxock

C'est bizarre le VBS accepte aussi des entête de type sub / end sub
Pourquoi ne pas essayer de faire un fichier VBS à part et le lancer à partir du code HTML : ce n'est pas possible ??

mezzomix23

Oui c'est possible, mais j'essaye de ne pas avoir trop de fichiers différent et comme je sais que le vbs peut générer des fenêtres html et récupérer leur valeur, autant le faire

En fait le code que j'ai mis ci-dessus fonctionne partiellement on va dire... en fait c'est un .hta à l'origine... Une fois initialisée, je clique sur un bouton et ce bouton effectue le sub ci-dessus. Quand je clique dessus, la fenêtre s'ouvre bien, je peux entrer le nom et le mot de passe, mais pendant ce temps, la fenêtre principale est inaccessible et quand je clique soit sur OK ou Cancel de la fenêtre popup, il n'y a pas de retour alors qu'il devrait y avoir une action pour chacun des boutons. Voilà le problème que je n'arrive pas à résoudre.

mezzomix23

J'ai trouvé autre chose qui a fonctionné, mais finalement j'ai laissé tomber cette version (beaucoup plus compliqué que simplement lancer le .hta depuis une console CMD avec droit admin).

Il me reste toujours le problème de récupérer les cases que j'ai cochée et lancer une commande pour chaque case cochée

Voilà le code :

Code :

<script language="vbscript">
Dim DFSTempFolder
DFSTempFolder = "C:\TEMP\DFSReplication"
Sub OnLoad()
self.ResizeTo 0,0
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
If Not oSys.FolderExists(CMDFolder) Then
MsgBox "The folder 'DFSCopyJob' doesn't exists." & VbCrLf & "The application will now quit !", VBCritical, "DFSCopyJob Folder Missing !"
Window.close
End If
self.Focus()
self.ResizeTo 375,700
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
Market = "<B>SELECT THE DESIRED MARKET(S)</B> <br><br>"
For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='" & Markets(i) & "'> " & Markets(i) & "<br>"
Next
Market = Market & "<BR> <input name='allbox' type='checkbox' value='Check All' onClick='CheckAll();' /><B>Select/Unslect All</B>"
Market = Market & "<BR><BR> <input type=button value='Start DFS Replication' onClick=StartDFSReplication()> <input type=button value=Cancel onClick=window.close()>"
txtOutput.innerhtml = Market
document.title = "Make your choice"
End Sub
Sub Prepare()
Dim oSys
Set oSys = CreateObject("Scripting.FilesystemObject" )
If Not oSys.FolderExists(DFSTempFolder) Then
oSys.CreateFolder(DFSTempFolder)
Else
oSys.DeleteFolder(DFSTempFolder)
oSys.CreateFolder(DFSTempFolder)
End If
End Sub
Sub StartDFSReplication()
Dim oShell
Set oShell = CreateObject("WScript.Shell" )
Prepare
For i = 0 to End
oShell.Run "cscript.exe " & DFSTempFolder & "\Start_" & Markets(i) & ".vbs", 9, True
Next
Self.close
End Sub
</script>

Et ce que je n'arrive pas à faire se situe là plus précisement :

Code :

For i = 0 to End
oShell.Run "cscript.exe " & DFSTempFolder & "\Start_" & Markets(i) & ".vbs", 9, True
Next

Voici ce que j'aimerai faire en gros, j'ai juste mis un code pour donner la logique
Merci !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récupération d'une liste de fichier dans un Array

Sujets relatifs
probleme copier fichier depuis url	Stocker des fichier sur son serveur depuis un page php ou autre..
recuperer des information à partir d'un fichier html avec C++	Comment ouvrir des fichier .lut et .big ?
Récuperer nom fichier dans une url	[???] convertir le formatage du contenu d'1 fichier txt ?
Je n'arrive pas un mettre un fichier en telechargement	Liste déroulante de liens en PHP ?
COmment envoyer un netsend a une liste de poste dans un fichier texte
Plus de sujets relatifs à : Récupération d'une liste de fichier dans un Array

Page générée en 0.108 secondes