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
| <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nouvelle page 1</title>
</head>
<body>
<script type="text/javascript">
var fso;
fso = new ActiveXObject('Scripting.FileSystemObject');
function replace(str, search, rep) //remplace l'occurence d'une sous chaine dans une chaine par une autre...
{
var result="";
for(i=0;i<=str.length-search.length;i++)
{
if (str.substring(i,i+search.length) == search)
{
result += rep;
}
else
{
result += str.substring(i,i+search.length);
}
}
return result;
}
function listsubfolders(folder)//liste les sous dossier d'un répertoire
{
folder = fso.GetFolder(folder);
var ssfolders=new Enumerator(folder.subfolders);
for (; !ssfolders.atEnd(); ssfolders.moveNext())
{
document.write("<br><a class=\"linkfolder\" href=\"#\" onclick=\"listsubfolder(\'" + replace(String(ssfolders.item()),"\\","\\\\") + "\');\">"+ ssfolders.item()+"</a>");
alert("<br><a class=\"linkfolder\" href=\"#\" onclick=\"listsubfolder(\'" + replace(String(ssfolders.item()),"\\","\\\\") + "\');\">"+ ssfolders.item()+"</a>");
}
}
</script>
<a class="linkfolder" href="#" onclick="listsubfolders('c:\\');">lien qui marche</a>
</body>
</html> |