Jeg har hele min musiksamling på en harddisk og ønsker at få udskrevet denne samling. 1. niveau er kunstnernavn, 2. niveau er lig albumnavn - indholdet af mappen er så musikfilerne fra dette album.
Følgende stump kode udskriver mapperne på d-drevet (på serveren) og deres indhold af filer. Man bør nok lave noget rekursivt kald når man skal længere ned i filstrukturen, men nedenstående skulle illustrere princippet:
Dim fso, f, folder, file, fc Set fso = server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("D:\") Set fc = f.SubFolders For Each folder in fc response.write "<b>" & folder.name & "</b><br>"
Set f = fso.GetFolder("D:\" & folder.name) Set fc = f.Files For Each file in fc response.write " " & file.name & "<br>" Next Next
ok, det var så ikke på serveren filerne lå, så kan det være ligemeget... (men det kunne være der var andre der kunne få glæde af det)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.