IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

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


Sujet :

VBScript

  1. #1
    Membre averti
    Femme Profil pro
    bordeaux
    Inscrit en
    Avril 2017
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : bordeaux
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2017
    Messages : 39
    Par défaut Comment créer un fichier HTA avec des champs qui me permettraient de spécifier des données
    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 ?

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 124
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 124
    Par défaut
    Salut

    Ne sachant pas si tu as déjà fait du HTA, ce lien interface-HTA
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 841
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 841
    Par défaut

    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>

Discussions similaires

  1. Réponses: 1
    Dernier message: 25/08/2020, 11h50
  2. Comment créer un fichier binaire avec ces codes
    Par zslovefr dans le forum C++/CLI
    Réponses: 1
    Dernier message: 02/07/2009, 20h34
  3. Réponses: 1
    Dernier message: 08/10/2008, 15h30
  4. Comment créer un fichier Excel avec Delphi ?
    Par nancyvoyer dans le forum API, COM et SDKs
    Réponses: 6
    Dernier message: 30/11/2007, 20h39
  5. Réponses: 2
    Dernier message: 13/03/2007, 11h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo