<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'On Error Resume Next FileRootFolder = "C:\Inetpub\vhosts\4edu.ca\httpdocs\archives\french\ChalkTalk\" RootFolder = "/archives/french/ChalkTalk" Function ShowFolderTree() Dim oTree, html Set oTree = Server.CreateObject("obout_ASPTreeview_2.Tree") ' Root node is optional. You can delete this line. ' oTree.AddRootNode "Chalk Talk", true, "xpMyComp.gif" 'FOR HELP--> http://www.obout.com/t2/propadd.aspx ' Populate Treeview. Set oTree = ShowFileList(oTree, "root", "") oTree.FolderIcons = "../tors/tree2/icons" oTree.FolderScript = "../tors/tree2/script" oTree.FolderStyle = "../tors/tree2/style/Classic" oTree.KeepLastExpanded = 5 oTree.Width = "200px" 'Write treeview to your page. Response.Write oTree.HTML() Set oTree = Nothing End Function Function ShowFileList(ByRef objTree, ByVal nodeID, ByVal folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") ' Response.Write(folderspec) Set f = fso.GetFolder(FileRootFolder & folderspec) Set fc = f.Files Set ff = f.SubFolders CurFolder = RootFolder & Replace(folderspec , "\", "/") sortFF = FolderSort(ff) For i = 1 to UBound(sortFF) subNodeID = nodeID & "_" & i objTree.Add nodeID, subNodeID, sortFF(i), false Set objTree = ShowFileList(objTree, subNodeID, folderspec & "\" & sortFF(i)) Next sortFF = FilesSort(f) for i = 1 to UBound(sortFF) subNodeID = nodeID & "_" & i FileName = Replace(sortFF(i) , "-", " ") objTree.Add nodeID, subNodeID, "" & Mid(FileName, 1, instrRev(FileName, ".")-1) & "", , "page.gif" next Set ShowFileList = objTree End Function Function FolderSort(fold) fileCount = fold.count dim fNames() redim fNames(fileCount) cFcount = 0 for each file in fold cFcount = cFcount + 1 ' sept 24 09 ' fNames(cFcount) = lcase(file.name) fNames(cFcount) = file.name next for tName = 1 to fileCount for nName = (tName + 1) to fileCount ' sept 24 09 ' if strComp(fNames(tName),fNames(nName),0)=-1 then if strComp(fNames(tName),fNames(nName),0)=+ 1 then buffer = fNames(nName) fNames(nName) = fNames(tName) fNames(tName) = buffer end if next next FolderSort = fNames End Function Function FilesSort(fold) fileCount = fold.files.count dim fNames() redim fNames(fileCount) cFcount = 0 for each file in fold.files cFcount = cFcount + 1 fNames(cFcount) = lcase(file.name) next for tName = 1 to fileCount for nName = (tName + 1) to fileCount if strComp(fNames(tName),fNames(nName),0)=-1 then buffer = fNames(nName) fNames(nName) = fNames(tName) fNames(tName) = buffer end if next next FilesSort = fNames End Function %> La Craie

Bulletin électronique gratuit.

 

 

La Craie est un bulletin électronique réalisé par CoEd Communications Inc. pour les spécialistes en enseignement canadiens, qui est disponible sans frais par le biais d'un abonnement. La Craie contient un trésor d'articles saillants, de renseignements et de statistiques et tous ce dont vous désirez savoir sur les excellentes ressources pédagogiques, conformes au curriculum, que les enseignants peuvent utiliser pour réaliser des plans de leçons précis portant sur une variété de sujets tels : l'histoire du Canada, l'environnement, les tendances sociales et les droits de la personne et l'enseignement des langues et de l'arithmétique. Les derniers et anciens numéros de La Craie sont publiés sur ce site.

La Craie

<% if Trim(Request.QueryString("folder")) <> "" Then Call ShowFolderTree() if cint(Err.Number) > 0 Then Response.Write("" & Err.Description & "") end if else Call ShowFolderTree() end if %>

| English

CoEd Communications Inc. est une société à but non-lucratif, oeuvrant dans le domaine des communications didactiques, qui se spécialise dans la conception et la promotion d'outils pédagogiques gratuits, de qualité supérieure, conformes au curriculum, pour le système scolaire canadien. CoEd travaille en collaboration avec les Services et les Ministères de l'éducation, les districts/les conseils scolaires, les associations, les enseignants et divers experts à travers le pays.

Toute est une question d'éducation.

CoEd Communications

287 Beech Avenue,

Toronto (Ontario)

M4E 3J1

 

Téléphone 416.955.9526

Nous sommes fiers d'apporter notre soutien au précieux travail des enseignants canadiens depuis 1992.

Tous droits réservés © CoEd 2022