0
Je dois appeler deux fonctions sur un événement à un seul clic. et aussi les fonctions devraient être exécutées séquentiellement. J'ai essayé <button onclick="copy();zip();"> click me </button>
. Mais ça ne marche pas. Il n'appelle aucune des fonctions.Appel de deux fonctions de manière séquentielle dans VBScript avec un seul événement
Voici le code complet:
<html>
<head>
<script type="text/vbscript">
function copy()
Dim WshShell, oExec,g,h
h="D:\d"
g="xcopy " & h & " " & "D:\y\ /E"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(g)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
WScript.Echo oExec.Status
end function
function zip()
Dim WshShel, oExe
Set WshShel = CreateObject("WScript.Shell")
Set oExe = WshShel.Exec("cmd /c cd D:\d & D: & winzip32.exe -min -a D:\a")
Do While oExe.Status = 0
WScript.Sleep 100
Loop
WScript.Echo oExe.Status
end function
</script>
</head>
<body>
<button onclick="copy();zip();"> click me </button>
</body>
</html>
fois() copie d'appel() zip d'appel() fonction fin seulement les appels copie() – sushant
peut u s'il vous plaît dire à l'erreur que je fais? – sushant
Êtes-vous sûr que copy() n'effectue pas d'erreur quelque part? –