Discussion :

[koKoTis]

voila le résulta:

[ced600]

cette fois ci cela devrait être bon :

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=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"") 
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name)
  Next

[koKoTis]

Mais ca fait un autre probléme, a la deuxième ligne il n'y a que commande dos a la place de batch\commande dos

[ced600]

En fait j'ai été un peu con
Je me suis dit : "N'oublis pas le moins 1" et je l'ai oublié

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=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"") 
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name)
  Next

[koKoTis]

voila le résulta:

[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=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"") 
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

Je crois que je vais m'arracher les cheveux.
Mais on n'est pas loin du truc.

[koKoTis]

voila le résulta

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  For Each fdCur In fd.SubFolders
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"") 
vrChmCourt = Replace(url,urlrepertoire & "\","") 
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

Cela donne koi ?

[koKoTis]

Cela donne ceci:

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  For Each fdCur In fd.SubFolders
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = Replace(url,urlrepertoire,"")
vrChmCourt = Replace(url, "\\","")
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

Essaye ceci.

[koKoTis]

voici

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  vrChmCourt = Replace(url, "\\","")
  For Each fdCur In fd.SubFolders
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = Replace(url,urlrepertoire,"")
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

Et ceci ?

[koKoTis]

et voila:

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  vrChmCourt = Replace(url, "\\","")
  For Each fdCur In fd.SubFolders
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"")
vrChmCourt = Replace(url,urlrepertoire & "\","")
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

Bon cela devrait être meilleur mais pas parfait.
On y reréflichieras lundi.
On va reprendre ce code et faire un peu autrement.

[koKoTis]

Bon cela devrait être meilleur mais pas parfait.

en et fait

[ced600]

heu ouias mais je suis un peu con :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  vrChmCourt = Replace(url, "\\","\")
  For Each fdCur In fd.SubFolders
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"")
vrChmCourt = Replace(url,urlrepertoire & "\","")
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

[koKoTis]

Mais non tu n'est pas con

Le résulta et identique au précéden

[ced600]

un dernier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'vrChmCourt = Replace(url,urlrepertoire & "\","")
  For Each fdCur In fd.SubFolders
vrChmCourt = Replace(url, "\\","\")
            Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
             f.writeline("<a href=""" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name & "\index.htm"">" & Right(vrChmCourt, Len(vrChmCourt)) & fdCur.Name &"</a> <br>") 'changement ici :)
         f.close
vrChmCourt = Replace(url,urlrepertoire,"")
vrChmCourt = Replace(url,urlrepertoire & "\","")
'vrChmCourt  = vrChmCourt & "\"
         traiterepertoire(url & "\" & fdCur.Name & "\")
  Next

[koKoTis]

encore pareil