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
| set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
Set FichierTXT = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("fav.vbs", ForWriting,true)
f.writeline("vrTestDisuKook = ""Z:\KooKaTix_Interface"" ' Cette variable ser à la condition IF pour tester si je sui bien sur mon PC en testant mon répertoire de mon diosque kookatix")
f.writeline("Set objFSO = CreateObject(""Scripting.FileSystemObject"")")
f.writeline(" If objFSO.FolderExists(vrTestDisuKook) Then")
f.writeline("Dim prec")
f.writeline("ForReading=1")
f.writeline("Const SW_HIDE=0")
f.writeline("Const SW_SHOWNORMAL=1 ")
f.writeline("Dim shell, fldrs, fso, ts")
f.writeline("Set shell = WScript.CreateObject(""WScript.Shell"")")
f.writeline("Set fso = WScript.CreateObject(""Scripting.FileSystemObject"")")
f.writeline("FileResult="""" & Left(WScript.ScriptFullName, 2) & ""\Ma clé\Mes Sites Favoris .html""")
f.writeline("Set ts=fso.CreateTextFile(FileResult, true,true)")
f.writeline("' Récupération du chemin du dossier ""Favoris""")
f.writeline("Set fldrs = Shell.SpecialFolders")
f.writeline("fav=fldrs(""Favorites"")")
f.writeline("ColorBack=""""""#FFFFD8""""""")
f.writeline("ts.Writeline ""<HTML><head><title>"" & ""Favoris"" & ""</title>"" ")
f.writeline("ts.Writeline ""<html><head><title>"" & Titre & ""</title>"" ")
f.writeline("ts.Writeline ""<STYLE TYPE=""""text/css"""">""")
f.writeline("ts.Writeline ""body {"" ")
f.writeline("ts.Writeline "" font-family: Verdana;"" ")
f.writeline("ts.Writeline "" font-size: 8 pt }"" ")
f.writeline("ts.Writeline "" h1, h2, h3, h4, h5 { font-family: Verdana }"" ")
f.writeline("ts.Writeline ""</STYLE></head><body bgcolor="" & ColorBack &"">""")
f.writeline("ts.WriteLine ""<h3>Dossier des favoris : "" & fav & ""</h3>""")
f.writeline("indfav=InstrRev(fav,""\"")+1")
f.writeline("prec=""""")
f.writeline("ts.writeline ""<ul>""")
f.writeline("call explorefolder(fav,""Favoris"")")
f.writeline("ts.WriteLine ""</ul></body></html>""")
f.writeline("ts.close")
f.writeline(" commande=chr(34) & FileResult & chr(34)")
f.writeline("shell.Run commande, SW_SHOWNORMAL, false")
f.writeline("wscript.quit")
f.writeline("'----------------------------------------------------")
f.writeline("' Sous-programme récursif d'exploration des dossiers")
f.writeline("sub explorefolder(namefolder,curfolder)")
f.writeline("dim f,collfolders,collfiles")
f.writeline("Set f = fso.GetFolder(namefolder)")
f.writeline("' Collection des fichiers et sous-dossiers du dossier courant")
f.writeline("Set collfolders= f.SubFolders ")
f.writeline("Set collfiles = f.Files")
f.writeline("subname=mid(namefolder,indfav)")
f.writeline("ts.writeline ""<li><b>"" & curfolder & ""</b><ul>""")
f.writeline("' Exploration des fichiers contenus")
f.writeline("nf=0")
f.writeline("For each fic in collfiles")
f.writeline(" ext=LCase(right(fic.Name, 4))")
f.writeline("' On ne retient que les fichiers *.url")
f.writeline(" If ext="".url"" Then")
f.writeline(" nf=nf+1")
f.writeline(" titre=left(fic.Name,Len(fic.Name)-4)")
f.writeline(" set curf=fic.OpenAsTextStream(ForReading, TristateUseDefault)")
f.writeline("' On lit le fichier et recherche l'item ""URL=...""")
f.writeline(" Do While (curf.AtEndOfStream <>true)")
f.writeline(" ligne=curf.readline")
f.writeline(" If lcase(left(ligne,4))=""url="" Then")
f.writeline(" URL=right(ligne,len(ligne)-4)")
f.writeline(" lenURL=len(URL)")
f.writeline(" URL2=""""")
f.writeline(" i=1")
f.writeline(" lmax=80")
f.writeline(" Do while i<=lenURL")
f.writeline(" If URL2<>"""" Then URL2=URL2 & VBCRLF")
f.writeline(" URL2=URL2 & "" "" & mid(URL,i,lmax)")
f.writeline(" i=i+lmax")
f.writeline(" Loop")
f.writeline(" exit Do")
f.writeline(" End If")
f.writeline(" Loop")
f.writeline(" curf.close")
f.writeline(" ts.writeline ""<li><a href="" & chr(34) & URL2 & chr(34) & "">"" & titre & ""</a></li>""")
f.writeline(" End If")
f.writeline(" Next")
f.writeline("' Exploration récursive des sous-dossiers")
f.writeline("For each folder in collfolders ")
f.writeline(" newfolder=namefolder & ""\"" & folder.Name")
f.writeline(" call explorefolder(newfolder,folder.Name)")
f.writeline(" Next")
f.writeline("ts.writeline ""</ul></li>""")
f.writeline("end sub")
f.writeline("'--------------------------------------------------------------------")
f.writeline("' Fonction de récupération du répertoire courant")
f.writeline("Function GetPath()")
f.writeline("Dim path")
f.writeline("path = WScript.ScriptFullName")
f.writeline("GetPath = Left(path, InStrRev(path, ""\""))")
f.writeline("End Function")
f.writeline(" Else")
f.writeline(" Wscript.Echo vrMessgDisquKookNotExist")
f.writeline(" End If")
f.close
WshShell.Run "wscript fav.vbs"
Set fsoFile = fso.getFile("fav.vbs")
fsoFile.delete |
générer un vbs
Répondre avec citation
Envoyé par trollinou
Partager