Répéter zone de texte à l'infini

Utilisateur anonyme -
Utilisateur anonyme - 2 déc. 2019 à 18:34

Bonjour,

Je développe actuellement un petit programme en .hta (HTML local) permettant de sélectionner des chemins de dossier et de les stocker dans des variables.
Le problème c'est que j'aimerais ajouter un bouton "+" permettant d'étendre le nombre de choix de dossier à l'infini, mais je ne sais pas comment faire.
J'ai réussi à crée une sélection de dossier mais seulement une sans stocker le résultat.

Merci pour toute aide :)

Configuration: Windows / Firefox 70.0

Afficher la suite

A voir également:

Répéter zone de texte à l'infini
Traitement de texte - Guide
Signe infini clavier - Guide
Site comme zone telechargement - Accueil - Outils
Texte a copier coller - Guide
Texte de barra - Guide

2 réponses

Réponse 1 / 2
Reivax962 Messages postés 3742 Statut Membre 1 011

Bonjour,

Pour te fournir une solution ou des pistes adaptées à ton code, il serait très utile de nous le montrer.
Pour ce faire, copie-colle ton code source en réponse à ton message, sans oublier de le mettre entre les balises < code html></ code> qui permettront d'obtenir un formatage lisible. (Utilise le bouton <> à côté du bouton S)

Xavier
1

Utilisateur anonyme

<html>
<head>
 <meta charset="utf-8">
 <link rel="stylesheet" href="style.css" />
  <title>Sauvegarde sur NAS - Baptiste</title>
        <HTA:APPLICATION
   ID="Appli_essaie"
   APPLICATIONNAME="Appli_essaie"
   ICON="icon.ico"
   CAPTION="yes"
   SHOWINTASKBAR="yes"
   SINGLEINSTANCE="yes"
   SCROLL="no"
   NAVIGABLE="YES">
   
 <!-- JAVASCRIPT -->
 <script type="text/javascript">
  window.resizeTo(800,480);
  
  function fermer() {
          self.close();
        }

 </script>

  <!-- VBSCRIPT -->
 <script Language="VBScript">
 
 Dim sStartPath, sStartFile, sFilter, sCaption
  sStartPath = "D:\Remote"
  sStartFile = sStartPath & "\nul"
  sFilter    = "All Files (*.*)|*.*|" _
      & "VBScript (*.vbs;*.vbc)|*.vbs;*.vbc|" _
      & "HTML (*.htm;*.html;*.hta)|*.htm;*.html;*.hta|"
  sCaption = "Choose a File:"
  
 Sub BrForFolder
    sBFF = PickFolder(sStartPath)
    If not sBFF = "" Then 
      document.Copy_To_PC.txtfile.value = sBFF
    End If
 End Sub
 
 Function PickFolder(sStartPath)
    Dim shell, oFldr
    Set shell = CreateObject("Shell.Application")
    Set oFldr = shell.BrowseForFolder(0, "Choose a folder:" _
        , &H0001 + &H0004 + &H0010 + &H0020, sStartPath)
    'See MSDN "BROWSEINFO structure" for constants
    If (Not oFldr Is Nothing) Then
        PickFolder = oFldr.Self.Path
    Else
        PickFolder = ""
    End If
    Set shell = Nothing
    Set oFldr = Nothing
 End Function
 </script>

</head>
<body>
<form name="Copy_To_PC">
 <div class=choixdossier>
  <input style="width:600px;" type="text" id="txtfile" name="txtfile">
  <input type="button" value="Browse for Folder..." onClick=BrForFolder()>
  
 </div>
</form>

 <input class="button_close" type="button" value="Fermer l'application" onclick="fermer()" />
</body>
</html>

Voilà le code, il possède actuellement UN choix de dossier, j'aimerais l'étendre à l'infini (avec un bouton "+"), comme une boucle for mais en html

Répéter zone de texte à l'infini

2 réponses

Discussions similaires

Newsletters