Oui mais la ca va me laisser un "\" devant dans les liens
Oui mais la ca va me laisser un "\" devant dans les liens
Ceci devrait donner ce que tu souhaites.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 vrChmCourt = "" For Each fdCur In fd.SubFolders Set FichierTXT = WScript.CreateObject("WScript.Shell") Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & url & "\" & fdCur.Name & "\index.htm"">" & vrChmCourt & "\" & fdCur.Name &"</a> <br>") f.close traiterepertoire(url & "\" & fdCur.Name) vrChmCourt = Replace(url,urlrepertoire & "\","") Next
C'est pour cela que tu as \toto& vrChmCourt & "\" & fdCur.Name
Donc faut gérer la première ligne.
Enlève le & "\"
et la fait ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 vrChmCourt = Replace(url,urlrepertoire & "\","") vrChmCourt = vrChmCourt & "\"
peux tu reposter ton script modifié, et le résultat ?
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 'http://www.developpez.net/forums/showthread.php?t=477079 Dim vrChmCourt, urlrepertoire, vrChmRepSource Set WshShell = WScript.CreateObject("WScript.Shell") Set objNetwork = CreateObject("Wscript.Network") strUser = objNetwork.UserName Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") DesktopPath = WSHShell.SpecialFolders("Desktop") vrChmRepSource = "Z:\Scripting - Batch VBS ect" urlrepertoire = "C:\Scripting - Batch VBS ect" 'urlrepertoire = DesktopPath & "\Site Temp VBS" Variable = MsgBox("Jérémie veut tu copier le répertoire scripting sous C ?", vbYesNo) If Variable = vbYes Then If objFSO.FolderExists(urlrepertoire) Then Set FSO = CreateObject("Scripting.FileSystemObject") Set fsoFolder = fso.getFolder(urlrepertoire) fsofolder.delete Else End If FSO.CopyFolder vrChmRepSource, urlrepertoire Else End If Set fso = CreateObject("Scripting.FileSystemObject") traiterepertoire(urlrepertoire) sub traiterepertoire(url) Set fd = fso.GetFolder(url) vrChmCourt = Replace(url,urlrepertoire & "\","") vrChmCourt = vrChmCourt & "\" For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & "\" & fdCur.Name & "\index.htm"">" & vrChmCourt & "\" & fdCur.Name &"</a> <br>") f.close traiterepertoire(url & "\" & fdCur.Name) Next For Each fdfile In fd.Files Set FichierTXT = WScript.CreateObject("WScript.Shell") Set f = fso.OpenTextFile(url & "\index.htm", 8,true) f.writeline("<a href=""" & fdfile.Name & """> "& fdfile.Name &"</a><br>") f.close next end sub ' On converti en fichier .chm: 'WshShell.Run "hhc " & urlrepertoire & "\index.htm"
Hum... Je n'ai pas été très clair apparement, voila ce à quoi je pensais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 vrChmCourt = "" For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & fdCur.Name & "\index.htm"">" & vrChmCourt & fdCur.Name &"</a> <br>") f.close vrChmCourt = Replace(url,urlrepertoire & "\","") vrChmCourt = vrChmCourt & "\" traiterepertoire(url & "\" & fdCur.Name) Next
Le il ne me mais plu que les noms des derniers répertoires
J'avais un peu zapper le coté récursif
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 vrChmCourt = Replace(url,urlrepertoire & "\","") For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & fdCur.Name & "\index.htm"">" & vrChmCourt & fdCur.Name &"</a> <br>") f.close vrChmCourt = Replace(url,urlrepertoire & "\","") vrChmCourt = vrChmCourt & "\" traiterepertoire(url & "\" & fdCur.Name) Next
Et ainsi ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 vrChmCourt = Replace(url,urlrepertoire & "\","") For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & fdCur.Name & "\index.htm"">" & vrChmCourt & fdCur.Name &"</a> <br>") f.close vrChmCourt = Replace(url,urlrepertoire & "\","") 'vrChmCourt = vrChmCourt & "\" traiterepertoire(url & "\" & fdCur.Name) Next
Essaye ceci et redonne moi le résultat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 'vrChmCourt = Replace(url,urlrepertoire & "\","") For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & fdCur.Name & "\index.htm"">" & vrChmCourt & fdCur.Name &"</a> <br>") f.close vrChmCourt = Replace(url,urlrepertoire & "\","") 'vrChmCourt = vrChmCourt & "\" traiterepertoire(url & "\" & fdCur.Name) Next
Je ne suis pas sur mon PC ce matin, mais je testerai cette aprés midi quand je serai chez moi
non non il y a des & "\" en moins
Essayes, c'est pour redémarrer de la et reréflechir sur le problème.
Bon ben alor je testerai cet aprém
Merci encore
essaye ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 'vrChmCourt = Replace(url,urlrepertoire & "\","") For Each fdCur In fd.SubFolders Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true) f.writeline("<a href=""" & vrChmCourt & fdCur.Name & "\index.htm"">" & vrChmCourt & fdCur.Name &"</a> <br>") f.close vrChmCourt = Replace(url,urlrepertoire,"") 'changement ici :) 'vrChmCourt = vrChmCourt & "\" traiterepertoire(url & "\" & fdCur.Name) Next
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager