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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
|
<HTML>
<HEAD><TITLE>Formulaire de saisie pour Paquet APC</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_OnClick
Dim fichier : fichier = "testformulaire9.txt"
Const ForAppending = 8
Dim TheForm
Dim Fso3, f, oFSO, fso2, oFld, f2, fs, fs1, fso
' Dim REP_PAQUET_CA : REP_PAQUET_CA = "D:\DATA\PAQUET_CA"
'
'*** Déclaration des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim dossier : dossier = "nom_du_paquet"
Dim repSOURCE : repSOURCE = "D:\"
Dim repDESTINATION : repDESTINATION = "D:\DATA\PAQUET_CA\"
Dim repVERIF : repVERIF = repDESTINATION & dossier
Dim REP_PAQUET_CA : REP_PAQUET_CA = repVERIF
'*** On met une condition pour vérifier l'existance du dossier contenu dans la variable "repVERIF".
If fso.FolderExists(repVERIF) Then
wscript.echo " [ ] Le dossier est deja present !!!"
Else
'*** Si le répertoire n'existe pas, celui-ci sera crée.
fso.CreateFolder(repDESTINATION)
fso.CreateFolder(repDESTINATION & dossier)
wscript.echo " [OK] Le dossier " & repDESTINATION & dossier & " a ete cree."
End If
'*** Destruction des objets
Set fso = Nothing
'
' Dim fs1 As Scripting.FileSystemObject
' Set fs1 = New Scripting.FileSystemObject
' Set fs1 = WScript.CreateObject("Scripting.FileSystemObject")
' If Not fs1.FolderExists(REP_PAQUET_CA) Then
' fs1.CreateFolder(REP_PAQUET_CA)
'End If
' Dim fs1 = Nothing
' Set fso2 = CreateObject("Scripting.FileSystemObject")
' set oFld = fso2.CreateFolder(REP_PAQUET_CA)
Set oFSO = CreateObject("Scripting.FileSystemObject")
set f2 = oFSO.DeleteFile(REP_PAQUET_CA & "\" & fichier,True)
Set Fso3 = CreateObject("Scripting.FileSystemObject")
Set f = Fso3.OpenTextFile(REP_PAQUET_CA & "\" & fichier, ForAppending,true)
Set TheForm = Document.Form_saisie_paquet_APC
f.write("Nom_Paquet="& TheForm.Nom_Paquet.value & chr(13) & vbCrLf)
f.write("Version_paquet="& TheForm.Version_paquet.value & chr(13) & vbCrLf)
f.write("Fichier_MSI="& TheForm.Fichier_MSI.value & chr(13) & vbCrLf)
f.write("Fichier_MST="& TheForm.Fichier_MST.value & chr(13) & vbCrLf)
f.write("Fichier_EXE="& TheForm.Fichier_EXE.value & chr(13) & vbCrLf)
'if TheForm.Text1.value <> "" then
' f.write(Day(Now)& "/"& Month(Now)& "/"& Year(Now)& "; "& TheForm.Text1.value & chr(13))
'window.location.reload()
'else
' Msgbox "Attention ! Aucune information à enregistrer"
'end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H2><CENTER> Formulaire de saisie pour Paquet APC </CENTER></H2><HR><br>
<H4><FONT color="red"> ATTENTION : </FONT> <FONT color="black"> Le fichier D:\DATA\PAQUET_CA\testformulaire9.txt doit exister </FONT></H4>
<H5><FONT color="black"> Permet de générer les fichiers nécessaires au paquet CA pour une installation à l'arrêt du pc PHENIX.</FONT></H5><HR>
<FORM NAME="Form_saisie_paquet_APC">
Nom du Paquet : <br>
<INPUT NAME="Nom_Paquet" TYPE="TEXT" SIZE="40"><br><br>
Version du paquet : <br>
<INPUT NAME="Version_paquet" TYPE="TEXT" SIZE="10"><br><br>
Fichier MSI : <br>
<INPUT NAME="Fichier_MSI" TYPE="TEXT" SIZE="50"><br><br>
Fichier MST : <br>
<INPUT NAME="Fichier_MST" TYPE="TEXT" SIZE="50"><br><br>
Fichier EXE : <br>
<INPUT NAME="Fichier_EXE" TYPE="TEXT" SIZE="50"><br><br>
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="Enregistrer">
<div id="bandeau2">
<table style="width: 100%">
<tbody>
<tr>
<td style="width: 50%" align="center"><img src="logo.gif" width="230" height="120"></td>
<td style="width: 50%" align="center"><img src="logo_apc.gif" width="230" height="120"></td>
<td style="width: 5%" align="right"><font size="2" face="arial"></td>
</tr>
</tbody>
</table>
</div>
</FORM>
</BODY>
</HTML> |
Partager