un script pour créer un site

**koKoTis** · 24/01/2008, 11h31

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

**ced600** · 24/01/2008, 12h13

Envoyé par koKoTis

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

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

Ceci devrait donner ce que tu souhaites.

**koKoTis** · 24/01/2008, 12h20

C'est pareil

**ced600** · 24/01/2008, 12h50

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

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

1
2
vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt  = vrChmCourt & "\"

**koKoTis** · 24/01/2008, 12h58

C'est toujours pas bon

**ced600** · 24/01/2008, 13h53

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

**koKoTis** · 24/01/2008, 14h14

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"

**ced600** · 24/01/2008, 14h20

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

**koKoTis** · 24/01/2008, 14h25

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

**ced600** · 24/01/2008, 15h30

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

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

**koKoTis** · 24/01/2008, 15h34

Ca change toujour rien

**ced600** · 24/01/2008, 16h04

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 ?

**koKoTis** · 24/01/2008, 18h57

Ca change toujour rien

**ced600** · 25/01/2008, 09h36

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.

**koKoTis** · 25/01/2008, 09h47

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

**koKoTis** · 25/01/2008, 09h48

Envoyé par ced600

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.

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

**ced600** · 25/01/2008, 09h49

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

Essayes, c'est pour redémarrer de la et reréflechir sur le problème.

**koKoTis** · 25/01/2008, 09h56

Bon ben alor je testerai cet aprém

Merci encore

**koKoTis** · 25/01/2008, 13h04

Voila la résulta en fichier joint

**ced600** · 25/01/2008, 13h41

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

un script pour créer un site

VBScript

Discussions similaires

Partager

Partager