Discussion :

[ponpon17430]

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 :

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
 
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

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listingPST.innerHTML =   listingPST.innerHTML & strFilePath & "\" & strFileName & "<BR>"

peut être

[ponpon17430]

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é

[hackoofr]

Postez votre code HTA modifié

[ponpon17430]

Et voila

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
 
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

[hackoofr]

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