rep='\\img'
fso = new ActiveXObject("Scripting.FileSystemObject" )
path = fso.GetParentFolderName(unescape(self.location.pathname)) + rep
fold = fso.GetFolder(path.substr(1))
function lit_fold(FDest) { // liste les sous-dossiers du rep
alert(fold)
var f, f1, ff,i=0;
f = unescape(fold);
alert(fold);
ff = new Enumerator(fold.SubFolders);
alert(f);
f1=fso.openTextFile(f + "/" + FDest, 2, true);
for (; !ff.atEnd(); ff.moveNext())
{
f1.writeline("Replist1[" + i + "]=" + ff.item());
i=i+1;
}
}
lit_fold("FichList1.js" );
|