Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 7 sur 7
  1. #1
    Membre à l'essai
    Inscrit en
    août 2006
    Messages
    115
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 115
    Points : 22
    Points
    22

    Par défaut HTA et ajout innerhtml

    Bonjour,

    J'ai un script qui me permet de lister des fichiers sur mon profil utilisateur en fonction de l'extension.

    ce que j'aimerai faire est d'avoir une checkbox devant chaque chemin et ensuite en fonction de ce qui est coché, copier le fichier selectionné.

    Actuellement, j'affiche le chemin des fichiers mais tout est à la suite, je n'arrive pas a faire de retour à la ligne.
    J'ai essayé d'ajouter /n ou <TR> mais ca ne fonctionne pas

    Merci d'avance pour votre aide.

    voici la fonction qui liste des pst :

    Code :
    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
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("WScript.Shell")
     
    start_folder = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
    ext = Array("pst")
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set folder = oFSO.GetFolder(start_folder)
     
     
    Sub ListPST(folder, ext)
     
        For Each objFile In folder.Files
     
    If (UCase(ext(0)) = UCase(oFSO.GetExtensionName(objFile.Name))) Then
     
    	    strFileName = objFile.Name
            strFilePath = objFile.ParentFolder
    		strhtml = strhtml & strFileName
    		listingPST.innerHTML =   listingPST.innerHTML & strFilePath & "\" & strFileName            
            End If
        Next
        For Each fldr In folder.subfolders
            ListPST fldr, ext
        Next
     
    End Sub
     
    ListPST folder, ext

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro Francis MILLET
    Inscrit en
    décembre 2004
    Messages
    3 492
    Détails du profil
    Informations personnelles :
    Nom : Homme Francis MILLET
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 492
    Points : 6 367
    Points
    6 367

    Par défaut

    Salut
    Code :
    listingPST.innerHTML =   listingPST.innerHTML & strFilePath & "\" & strFileName & "<BR>"
    peut être

  3. #3
    Membre à l'essai
    Inscrit en
    août 2006
    Messages
    115
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 115
    Points : 22
    Points
    22

    Par défaut

    Merci, ca fonctionne ! j'avais oublié de tester la balise BR
    Bon maintenant il y a plus qu'a créé une checkbox pour chaque pst trouvé.

    Edit c'est bon j'ai les checkbox mais là je me trouve coincé pour copié le fichier selectionné

  4. #4
    Expert Confirmé Sénior
    Avatar de hackoofr
    Homme Profil pro Mehdi Tounisiano
    Enseignant
    Inscrit en
    juin 2009
    Messages
    2 764
    Détails du profil
    Informations personnelles :
    Nom : Homme Mehdi Tounisiano
    Âge : 39
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 2 764
    Points : 6 716
    Points
    6 716

    Par défaut


    Postez votre code HTA modifié

  5. #5
    Membre à l'essai
    Inscrit en
    août 2006
    Messages
    115
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 115
    Points : 22
    Points
    22

    Par défaut

    Et voila

    Code :
    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
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("WScript.Shell")
     
    start_folder = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
    ext = Array("pst")
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set folder = oFSO.GetFolder(start_folder)
     
    count = ""
    Sub ListPST(folder, ext)
     
        For Each objFile In folder.Files
     
    If (UCase(ext(0)) = UCase(oFSO.GetExtensionName(objFile.Name))) Then
    	count = count + "1"
    	    strFileName = objFile.Name
            strFilePath = objFile.ParentFolder
     
    		listingPST.innerHTML = listingPST.innerHTML & ("<input type='checkbox' value='" & count & "' name='" & count & "' onclick=''></input>") & " " & strFileName & "<BR>"
     
    		'listingPST.innerHTML =  listingPST.innerHTML & strFileName & "<BR>"
               msgbox count
            End If
        Next
        For Each fldr In folder.subfolders
            ListPST fldr, ext
        Next
     
    End Sub
    à la place de count j'avais mis la variable strFileName mais bon comment récupérer la valeur de ma checkbox par la suite

  6. #6
    Expert Confirmé Sénior
    Avatar de hackoofr
    Homme Profil pro Mehdi Tounisiano
    Enseignant
    Inscrit en
    juin 2009
    Messages
    2 764
    Détails du profil
    Informations personnelles :
    Nom : Homme Mehdi Tounisiano
    Âge : 39
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 2 764
    Points : 6 716
    Points
    6 716

    Par défaut

    Je veux dire tout le contenu du HTA et non pas le vbscript seulement comme dans cet exemple Recherche & Sauvegarde des fichiers par leurs Extensions
    Pour la CheckBox pour le moment aucune idée , mais vous pouvez explorer le dossier qui contient le fichier en question et le copier

  7. #7
    Membre à l'essai
    Inscrit en
    août 2006
    Messages
    115
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 115
    Points : 22
    Points
    22

    Par défaut

    Actuellement je passe par robocopy qui recherche et copie les PST.

    En fait l'évolution que j'aimerai faire, c'est, de lister les PST et ensuite je choisis quel fichier sauver sans à avoir à explorer le répertoire.

    Voici le code en entier
    Code :
    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
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
     
    <html>
    <head>
    <title>Backup utility</title>
    </head>
     
    <body>
     
    Select backup option :
    <br>
    <input type="checkbox" ID="PST" name="PST"> : Backup all PST files present in your user profile.
    <br>
    <div id = "listingPST" name="listingPST"></div>
    <div id = "ValidePST" name="ValidePST"></div>
    <div id = "Encours" name="Encours"></div>
    <br>
    <input type="button" id="BTvalider" name="valider" value="Start" onclick="backup()">
    <input type="button" Id="BTFermer" name="BTFermer" value="Close"  OnClick="fermer()">
    <br>
     
    </body>
    </html>
     
    <script type="text/javascript"> 
    function fermer() 
    { 
    self.close(); 
    }  
    </script>
    <SCRIPT LANGUAGE="VBScript">
    ResizeTo 670,460
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = CreateObject("WScript.Network")
    Set WshShell = CreateObject("WScript.Shell")
     
     
    Sub VerifProcessPST(objProcess)
     
    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
         If UCase(Process.Name) = UCase(objProcess) Then
            msgbox "Backup canceled : " & Process.Name & " is active..."& Chr(13) &"Close Outlook and launch again utility"
            Exit Sub
         End If
    Next
     
    ListPST folder, ext
     
    End Sub
     
     
    '======================================================================
    ' TEST  list PST
    '======================================================================
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("WScript.Shell")
     
    start_folder = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
    ext = Array("pst")
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set folder = oFSO.GetFolder(start_folder)
     
    Sub ListPST(folder, ext)
     
    	Encours.innerhtml = " Select PST to save : "
        For Each objFile In folder.Files
     
    If (UCase(ext(0)) = UCase(oFSO.GetExtensionName(objFile.Name))) Then
     
    	    strFileName = objFile.Name
            strFilePath = objFile.ParentFolder
     
    		listingPST.innerHTML = listingPST.innerHTML & ("<input type='checkbox' value='" & count & "' name='" & count & "' onclick=''></input>") & " " & strFileName & "<BR>"
     
    		'listingPST.innerHTML =  listingPST.innerHTML & strFileName & "<BR>"
               msgbox count
            End If
        Next
        For Each fldr In folder.subfolders
            ListPST fldr, ext
        Next
     
     
    End Sub
     
    ' FIN TEST
    '======================================================================
     
     
    '==================================================================================================================
    'Fonction après avoir appuyé sur le bouton continuer.
    'Vérifie si un choix est coché et execute le backup de l'option sélectionné.
    '==================================================================================================================
     
    Sub backup
    	If objGroup.IsMember(objUser.ADsPath) Then 
    		if (PST.Checked = false) then
     
    			Msgbox "Please select one option before continuing"
     
    			else
    				reponse = msgbox ("The backup can take few minutes, do you want continue ?", vbYesNo)
    				If reponse = vbYes then
     
    					If PST.Checked Then
    					VerifProcessPST("outlook.exe")
    					End if
     
    					BTvalider.disabled = False
    					BTFermer.disabled = False
    				else
    					msgbox " Backup finish"
    					fermer()
    				End If
    		End if
    	Else
    	Msgbox "Your are not allowed to use this utility."
    	End if
    End Sub
     
    </SCRIPT>

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •