Bonjour/Bonsoir

Alors voilà je dois créer une application HTA qui doit pouvoir réaliser les point suivants :

but du programme en résumé : Un chef de projet lance le programme choisis les dossiers qu'il veut avoir dans son projet (checkbox) puis s'il n'a pas crée son dossier de projet il le crée à l'endroit souhaité (bouton parcourir) puis on appui sur valider pour créer tous les dossiers et sous-dossiers.

Alors voilà à quoi ressemble mon ébauche de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
<HTML>
<HEAD>
<HTA:APPLICATION INNERBORDER="no" SCROLL="no" ID="Structurerep" 
 BORDER="thin" 
BORDERSTYLE="complex"/>
<TITLE>HTA - Création structure de projets</TITLE>
</HEAD>
<STYLE type="text/css">
body
{
font-family:"Verdana";
font-size:16px;
background-color:#d0e4fe;
}
h1
{
font-family:"Verdana";
font-size:16px;
 
}
p
{
font-family:"Verdana";
font-size:16px;
}
</STYLE>
<BODY>
<H2>HTA - Création structure de projets</H2>
<div width=""  id="divFile">
 
Emplacement : <input type="Text" size="50" name="repchemin" id="repchemin" value="" /> <input type="submit" value="Parcourir" size="50" onclick="parcourir()" />
</div>
 
<FORM name="form2">
<input type="checkbox" name="chemin" value="gestionproj">01 - Gestion de Projet<br>
<input type="checkbox" name="chemin" value="dlt">02 - DLT<br> 
<input type="checkbox" name="chemin" value="photos">03 - Photos<br> 
<input type="checkbox" name="chemin" value="technique">04 - Technique<br> 
<input type="checkbox" name="chemin" value="mes">05 - MES<br> 
<input type="checkbox" name="chemin" value="documentation">06 - Documentation<br> 
<br>
 
<input type="submit" value="Valider" onclick="CreerRep()" />
</FORM>
 
<script language="vbscript">
Function parcourir()	
Const RETURNONLYFSDIRS = &H1
 
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\")
If oFolder is Nothing Then 
MsgBox "Abandon opérateur",vbCritical
Else
Set oFolderItem = oFolder.Self
 'oFolderItem.path
MsgBox oFolderItem.path
End If
 
Set oFolderItem = Nothing
Set oFolder = Nothing
Set oShell = Nothing
 
end Function
 
Dim ofso
Set ofso = CreateObject("Scripting.FileSystemObject")
 
'		Sub CreerRep()
'		Dim oFSO,oFld 
'		Set oFSO = CreateObject("Scripting.FileSystemObject")
'		'Crée le repertoire
'		Set oFld=oFSO.CreateFolder ("C:\")
'		end Sub			
</script>
 
<p>Statut</p>
 
<script language="Javascript">
window.resizeTo(600, 512);
</script>
</BODY>
</HTML>
(Désolé pour l'indentition qui n'est pas du tout la même que sur mon notepad ) EDIT j'ai tenter de limiter la casse pour l'identation!

Mon problème est que lorsque je veux modifié mon formulaire repchemin et lui mettre comme valeur le path que j'ai trouvé je recois beaucoup d'erreurs différentes.

A l'état actuel mon code fonctionne je peux choisir avec mon bouton parcourir le dossier de déstination (il ya aussi le paramètre que j'ai spécifié pour avoir un dossier de départ) lorsque je met ok mon message box s'affiche et me donne mon path, mais lorsque je veux récupérer cela de différentes manières j'ai des erreurs tels que : cette element ne peut pas utiliser cette propriété quelque chose du genre .... J'ai essayé avec les get element etc ...

Auriez-vous une manière simple ? Et si vous avez des corrections à me proposer j'en serais ravis merci et bonne soirée ! Si vous avez des questions n'hésitez pas