un script pour créer un site

Version imprimable

Voir 40 message(s) de cette discussion en une page

24/01/2008, 11h31
koKoTis

Oui mais la ca va me laisser un "\" devant dans les liens :?

Citation:

Envoyé par koKoTis

Oui mais la ca va me laisser un "\" devant dans les liens :?

Code:

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

Ceci devrait donner ce que tu souhaites.

24/01/2008, 12h20
koKoTis

C'est pareil :?
24/01/2008, 12h50
ced600
Citation:

& vrChmCourt & "\" & fdCur.Name

C'est pour cela que tu as \toto

Donc faut gérer la première ligne.
Enlève le & "\"

et la fait ceci :
Code:

1 2 vrChmCourt = Replace(url,urlrepertoire & "\","") vrChmCourt = vrChmCourt & "\"
24/01/2008, 12h58
koKoTis

C'est toujours pas bon
24/01/2008, 13h53
ced600

peux tu reposter ton script modifié, et le résultat ?

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

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

24/01/2008, 14h25
koKoTis

1 pièce(s) jointe(s)

Le il ne me mais plu que les noms des derniers répertoires

Code:

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

J'avais un peu zapper le coté récursif :mrgreen:

24/01/2008, 15h34
koKoTis

Ca change toujour rien

Code:

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 ?

24/01/2008, 18h57
koKoTis

Ca change toujour rien :?

Code:

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.

25/01/2008, 09h47
koKoTis

Je ne suis pas sur mon PC ce matin, mais je testerai cette aprés midi quand je serai chez moi

Citation:

Envoyé par ced600

Code:

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.

Mais c'été comme ca que je faisai au début ;)

25/01/2008, 09h49
ced600

non non il y a des & "\" en moins ;)

Essayes, c'est pour redémarrer de la et reréflechir sur le problème.
25/01/2008, 09h56
koKoTis

Bon ben alor je testerai cet aprém ;)

Merci encore ;)
25/01/2008, 13h04
koKoTis

1 pièce(s) jointe(s)

Voila la résulta en fichier joint

essaye ceci :

Code:

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

Voir 40 message(s) de cette discussion en une page