Modifier la liste des documents récents dans Menu Démarrer

**d.tellier** · 10/10/2013, 02h04

Bonjour,
Ou se trouve le dossier ou se trouve la liste des documents récents du menu démarrer ? c'est pour modifier ou supprimer certains fichiers de cette liste sans en supprimer la totalité.

Cordialement.

**SysTm13** · 10/10/2013, 06h27

Bonjour,

Pour afficher la liste de tous les documents consultés, il faut dans un explorateur aller dans "organiser", options des dossiers" et décocher la case "Masquer les fichiers protégés du système d'exploitation".

La liste des documents récents sera alors visible dans c:/users/"votre_nom_d_utilisateur/recent

**d.tellier** · 10/10/2013, 15h52

Bonjour,
Et merci pour ta réponse. mais ca je le savait déjà. Ce n'est pas de cette liste que je parlait.
Par rapport à cette liste comment faire pour voir si un document est épinglé?

La liste en question est la liste des fichiers que l'on retrouve associé aux programmes dans le menu démarrer.

Cordialement.

**hackoofr** · 14/10/2013, 11h35

Testez ce Vbscript qui est encore un brouillon pour le moment

Copier et coller ce code ci-dessous dans votre Notepad et enregistrer-le sous le nom : Recent.vbs et exécutez-le par double clique

Bonne Chance à vous

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
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
Option Explicit
Dim Titre : Titre = "Index de fichiers dans le dossier Recent © Hackoo 2013"
Dim Ws : Set Ws = CreateObject("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim MyFolder : MyFolder = fso.GetAbsolutePathName(".")
Dim RecentFolder : RecentFolder = WS.SpecialFolders("Recent")
Dim Schemin : Schemin = InputBox("Entrez le chemin Absolu du dossier à lister "&vbCrLf&"Exemple c:\Windows "&vbCrLf &_
"ou bien la Lettre du Lecteur exemple C:\ ou bien D:\",Titre,RecentFolder)
If Schemin = "" Then WScript.Quit 
If Right(MyFolder,1) <> "\" Then MyFolder = MyFolder & "\"
Dim Fichier: Set Fichier = FSO.CreateTextFile(MyFolder & "index.hta",1,True) 
'ws.run "explorer " & RecentFolder
Dim strHTML : strHTML="<html><HTA:APPLICATION " &vbcrLF&_
    "icon = ""explorer.exe"" "&vbcrLF&_
	"BORDER=""dialog"" "&vbcrLF&_
	"SINGLEINSTANCE=""yes"" "&vbcrLF&_
	"WINDOWSTATE=""maximize"" />"&vbcrLF&_
"<title>Dossier Recent © Hackoo 2013</title><body text=white>"&vbcrLF&_
"<style type='text/css'>"&vbcrLF&_
"a:link {color: #F19105;}"&vbcrLF&_
"a:visited {color: #F19105;}"&vbcrLF&_
"a:active {color: #F19105;}"&vbcrLF&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&VbCrLF&_
"</style>"&VbCrLF&_
 "<script language=""VBScript"">"&VbCrLF&_
 "Sub SelectAll()"&VbCrLF&_
 "For Each checkbox In CheckboxOption"&VbCrLF&_
 "checkbox.Checked = True "&VbCrLF&_
 "Next"&VbCrLF&_
 "End Sub"&VbCrLF&_
 "Sub UnSelectAll()"&VbCrLF&_
 "For Each checkbox In CheckboxOption"&VbCrLF&_
 "checkbox.Checked = False "&VbCrLF&_
 "Next"&VbCrLF&_
 "End Sub"&VbCrLF&_
 "Sub DeleteThis()"&VbCrLF&_
 "Dim FSO : Set FSO = CreateObject(""Scripting.FileSystemObject"")"&VbCrLF&_
 "For Each checkbox In CheckboxOption"&VbCrLF&_
 "If checkbox.Checked = True Then "&VbCrLF&_
 "FSO.DeleteFile checkbox.Value,True"&VbCrLF&_
 "End If"&VbCrLF&_
 "Next"&VbCrLF&_
 "Window.Location.Reload(True)"&VbCrLF&_
 "End Sub"&VbCrLF&_
 "Function DblQuote(strIn)"&VbCrLF&_
 "	DblQuote = Chr(34) & strIn & Chr(34)"&VbCrLF&_
 "End Function"&VbCrLF&_
 "</script>"

strHTML=strHTML & "<center><h3><B><font color=DarkOrange><a target=_Blank href='" & RecentFolder & "'>Explorer le dossier "& RecentFolder &" </a></font></B></h3></center>" & _
"<center><body bgcolor=#1234568><table border='3' cellpadding='1' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='auto' id='Table1'></center>" & _
"<tr><td><center><strong>Icone</strong></center></td>" &_
"<td><center><strong>Nom du Fichier</strong></center></td><td><center><strong>Taille</strong></center></td>"&_
"<td><center><strong>Supprimer</strong></center></td></tr>"&_
"<center><input type=""button"" name=""SelectAll"" id=""SelectAll"" value=""Tout sélectionner"" onclick=""SelectAll"">"&_
"<input type=""button"" name=""UnSelectAll"" id=""UnSelectAll"" value=""Tout désélectionner"" onclick=""UnSelectAll"">"&_
"<input type=""button"" name=""DeleteThis"" id=""DeleteThis"" value=""Supprimer le fichier"" onclick=""DeleteThis"">"
 
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
ListerDossier Schemin, Fichier 'Remplissage dynamique des donnèes dans le Tableau 
Dim IMG : IMG = "<br><center><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img>"
Fichier.WriteLine "</table>"
Fichier.WriteLine IMG

Fichier.Writeline "</body></HTML>" 'ici on ferme notre tableau par la balise </table>
Fichier.Close
Ws.Run MyFolder & "index.hta"
Function ListerDossier(Schemin,Fichier) 'Lister l'arborescence du dossier
	On Error Resume Next 
	Dim Tab,NomFichier,SizeKo,SizeMo,SizeGo,SrcImage
	Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
	Dim ObjRep: Set ObjRep = FSO.GetFolder(Schemin) 'dossier
	Dim Fichiers: Set Fichiers = ObjRep.Files 'Fichiers
	Dim f
	For Each f In Fichiers 
		
	    SrcImage = "https://cdn1.iconfinder.com/data/icons/fs-icons-ubuntu-by-franksouza-/512/gnome-mime-application-x-ms-shortcut.png"
		
		Tab =  Split(f.Name,".")
		NomFichier = Tab(0) & "." & Tab(1)
		SizeKo = Round(FormatNumber(f.Size)/(1024),2) & " Ko" 'Taille en Ko avec 2 chiffres après la Virgule
		SizeMo = Round(FormatNumber(f.Size)/(1048576),2) & " Mo"'Taille en Mo avec 2 chiffres après la Virgule
		SizeGo = Round(FormatNumber(f.Size)/(1073741824),2) & " Go" 'Taille en Go avec 2 chiffres après la Virgule
		
		If f.size < 1024 Then 
			Fichier.WriteLine ("<tr><td><center><img src="&SrcImage&" width=""32"" height=""32""></img></td><td><center><a target=_Blank href='file://" & f.Path & "'>" & NomFichier & "</td><td><center>" & f.size & " Octet </a></td>"&_
			"<td><center><input type='checkbox' name='CheckboxOption' value="& DblQuote(f.Path) &" title = "& DblQuote(f.Path) &"></td></tr>")
		ElseIf f.size < 1048576 Then 
			Fichier.WriteLine ("<tr><td><center><img src="&SrcImage&" width=""32"" height=""32""></img></td><td><center><a target=_Blank href='file://" & f.Path & "'>" & NomFichier & "</td><td><center>" & SizeKo & "</a></td>"&_
            "<td><center><input type='checkbox' name='CheckboxOption' value="& DblQuote(f.Path) &" title = "& DblQuote(f.Path) &"></td></tr>")
		ElseIf f.size < 1073741824 Then 
			Fichier.WriteLine ("<tr><td><center><img src="&SrcImage&" width=""32"" height=""32""></img></td><td><center><a target=_Blank href='file://" & f.Path & "'>" & NomFichier & "</td><td><center>" & SizeMo & "</a></td>"&_
			"<td><center><input type='checkbox' name='CheckboxOption' value="& DblQuote(f.Path) &" title = "& DblQuote(f.Path) &"></td></tr>")
		Else
			Fichier.WriteLine ("<tr><td><center><img src="&SrcImage&" width=""32"" height=""32""></img></td><td><center><a target=_Blank href='file://" & f.Path & "'>" & NomFichier & "</td><td><center>" & SizeGo & "</a></td>"&_
			"<td><center><input type='checkbox' name='CheckboxOption' value="& DblQuote(f.Path) &" title = "& DblQuote(f.Path) &"></td></tr>")
		End If
		ListerDossier f.Path, Fichier
	Next
End Function

Function DblQuote(strIn)
	DblQuote = Chr(34) & strIn & Chr(34)
End Function

**ABDNED** · 14/10/2013, 23h15

utiliser les touches Windows+R et taper recent

Modifier la liste des documents récents dans Menu Démarrer

Windows 7

Discussions similaires

Partager

Partager