Comment créer un fichier HTA avec des champs qui me permettraient de spécifier des données

**Marion33** · 01/02/2023, 15h51

Suite à la discussion Explorateur de dossiers (Permission refusée: 800A0046)
Je voudrais créer un fichier HTA avec des champs qui me permettraient de spécifier les données du script (emplacement, la taille max, l'extension et le nombre de fichier à lister par dossier) et juste cliquer sur un bouton pour me créer le fichier du rapport; c'est compliqué à faire ça ?

**ProgElecT** · 01/02/2023, 17h56

Salut

Ne sachant pas si tu as déjà fait du HTA, ce lien interface-HTA

**hackoofr** · 01/02/2023, 20h35

un exemple de HTA :

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
<html>
<head>
<title>Create Script File</title>
</head>
<body>
<h1>Create Script File</h1>
<form>
<p>Location: <input type="text" id="location" value="\Documents\" /></p>
<p>Max size: <input type="text" id="maxSize" value="50000000" /></p>
<p>Extension: <input type="text" id="extension" value="jpg" /></p>
<p>Number of files to list per folder: <input type="text" id="numFiles" value="2" /></p>
<p><input type="button" value="Create Script File" onclick="createScript()" /></p>
</form>
<script type="text/vbscript">
Sub createScript()
Dim location, maxSize, extension, numFiles
location = document.getElementById("location").value
maxSize = document.getElementById("maxSize").value
extension = document.getElementById("extension").value
numFiles = document.getElementById("numFiles").value
Dim str, strHomeFolder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
str = str & "Set oShell = CreateObject(""WScript.Shell"")" & vbCrLf
str = str & "strHomeFolder = oShell.ExpandEnvironmentStrings(""%USERPROFILE%"")" & vbCrLf
str = str & vbCrLf
str = str & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
str = str & "Set fileWriter = fso.createTextFile(strHomeFolder & ""\Desktop\liste.txt"")" & vbCrLf
str = str & vbCrLf
str = str & "Sub ListDirectory(objFolder)" & vbCrLf
str = str & "    On Error Resume Next" & vbCrLf
str = str & "    For Each objFile In objFolder.Files" & vbCrLf
str = str & "        if j<" & numFiles & " and objFile.size<" & maxSize & " then" & vbCrLf
str = str & "            if LCase(objfso.GetExtensionName(objFile.Name)) = """ & extension & """ Then" & vbCrLf
str = str & "                fileWriter.WriteLine objFile.path" & vbCrLf
str = str & "                j=j+1" & vbcrLf
str = str & "             end if" & vbCrLf
str = str & "         end if" & vbCrLf
str = str & " Next" & vbCrLf
str = str & " For Each objSubFolder In objFolder.SubFolders" & vbCrLf
str = str & "     ListDirectory(objSubFolder)" & vbCrLf
str = str & " Next" & vbCrLf
str = str & "End Sub" & vbCrLf
str = str & vbCrLf
str = str & "chemins = split(""" & location & ""","","")" & vbCrLf
str = str & vbCrLf
str = str & "For i = 0 to ubound(chemins)" & vbCrLf
str = str & " Set objFso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
str = str & " Set objMyFolder = objFso.GetFolder (strHomeFolder&chemins(i))" & vbCrLf
str = str & " ListDirectory objMyFolder" & vbCrLf
str = str & "Next" & vbCrLf
str = str & "fileWriter.close" & vbCrLf
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(strHomeFolder & "\Desktop\script.vbs", True)
objTextFile.Write str
objTextFile.Close
CreateObject("wscript.shell").run strHomeFolder & "\Desktop\script.vbs"
MsgBox "Le fichier Liste.txt est cree sur le Bureau.", vbInformation
End Sub
</script>
</body>
</html>

Comment créer un fichier HTA avec des champs qui me permettraient de spécifier des données

VBScript

Discussions similaires

Partager

Partager