FSO hente foldername og alle filer?
Jeg bruger nedenstående til at hente filerne i det bibliotek hvor scriptet ligger(rod)og vil nu gerne hente biblioteknavnet også, så jeg ikke skal ind og lave en overskrift, men at scriptet selv udfylder overskriftet i tabellen:UPLOAD_PATH = Server.MapPath("resultatlister")
Dim g_oFso, g_oFolder, g_oFile
Set g_oFso = Server.CreateObject("Scripting.FileSystemObject")
Set g_oFolder = g_oFso.getFolder(UPLOAD_PATH)
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
Dim g_oUpload
Set g_oUpload = get_upload_files()
Dim fpos, fcontent
fcontent = g_oUpload("upload").Item("content")
Set g_oFile = g_oFso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(g_oUpload("upload").Item("filename")))
For fpos = 1 to LenB(fcontent)
g_oFile.Write chr(AscB(MidB(fcontent, fpos, 1)))
Next
g_oFile.Close: Set g_oFile = Nothing
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
End If
Response.Write "<html><body><table class='startliste'>"
Response.Write "<tr><td><hr></td></tr>"
For Each g_oFile In g_oFolder.Files
Response.Write "<tr><td><a href=""resultatlister/" & g_oFile.Name & """ target=_blank>" & g_oFile.name & "</a></td></tr>"
Next
Response.Write "<tr><td><hr></td></tr>"
Response.Write "</table></body></html>"
For Each g_oFile In g_oFolder.Files
if right(g_oFile.name,3) = "asp" then
Response.write ""
else
Response.Write "<tr><td><a href=""resultatlister/" & g_oFile.Name & """ target=_blank>" & g_oFile.name & "</a></td></tr>"
end if
Next
%>
