A voir également:
- Répéter zone de texte à l'infini
- Zone telechargement - Accueil - Outils
- Excel cellule couleur si condition texte - Guide
- Transcription audio en texte word gratuit - Guide
- Signe infini clavier ✓ - Forum Bureautique
- Convertisseur récupération de texte - Guide
2 réponses
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
2 déc. 2019 à 10:14
2 déc. 2019 à 10:14
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
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
Utilisateur anonyme
Modifié le 2 déc. 2019 à 18:35
Modifié le 2 déc. 2019 à 18:35
<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