Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc WriteToFile(f1.name) response.write \"<br>\" + f1.name Next End Function
Function ShowFolderList(folderspec) response.write \"ROOTFOLDER: \" + folderspec Dim fso, f, f1, s, sf Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f = fso.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 in sf WriteToFile(f1.name) response.write \"<br>\" + f1.name ShowFolderList(f1.path) Next ShowFileList(folderspec) End Function
Function WriteToFile(fObjStr) Const ForWriting = 2 Dim fsoWr, f Set fsoWr = CreateObject(\"Scripting.FileSystemObject\") Set f = fsoWr.OpenTextFile(\"C:\\webfoldercontent.txt\", ForWriting, True) f.Write fObjStr response.write fObjStr End Function
Det var lige det jeg manglede... Men den skal skrive ud for hver fil, et fortløbende nummer, som angiver hvilket niveau den er på, f.eks /dokumenter/retningslinier/test.doc vil have niveauet 1.1.1 og /dokumenter/retningslinier/test2.doc vil have 1.1.2 og dokumenter/test3 vil have 1.2 osv...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.