Om vi har en sida och har en mapp som heter
<script>
i denna mapp så har vi några mappar och alla mappar innehåller en default.asp fil. Kan man göra ett script som gör så att den läser av exempel:
<script>\<ny>\default.asp
<script>\<ny2>\default.asp
.... ja du ser den... har ingen direkt... visste inte ens om detta var möjligt... kan anar om man har 20 mappar kan detta ta lång tid att ladda? Jag kastar ut bollar just nu för att få lite hum om detta :e
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(server.mappath("scripts\"))
For each Item in Folder.SubFolders
set Files = item.Files
For each Item2 In Files
if lcase(Item2.Name) = "default.asp" then
response.write Item.name
end if
next
next
%>
Jag tycker den se "något" rätt ut... men jag får aldrig att if-satsen stämmer.. vet inte ens om den kör de filer i mappen.. vilket jag inte tror den gör nu behöver jag hjälp @nders ;)
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
str_dir = server.mappath("scripts\")
Set Folder = FSO.GetFolder(str_dir)
For each Item in Folder.SubFolders
set Files = item.Files
For each Item2 In Files
if lcase(Item2.Name) = "default.asp" then
set objFile = Fso.getFile(str_dir &"/" & item.name &"/default.asp")
Set textStream = fso.OpenTextFile(str_dir &"/" & item.name &"/default.asp",1, False)
arrRows = split(textStream.ReadAll , vbCrLf)
textStream.close
end if
next
next
%>
... fast lite bugg fixar såsom om default.asp är tomt eller inte ens ha en rad 2 :e