Sådan nu har jeg vist dig hvordan det virker... og det er nemt at arbejde videre med...
NB HUSK ASP FILE SKAL HEDDE MAPPER.ASP ellers husk at ændre link'ne ok
<%
Public ErrNum,ErrDes
'----------------------------------------------------------------------------------------------------------------------------------------------
'Get Files function made by:
'Paw Jershauge
'
http://Support.scf.dkPublic Function GetFiles(Path,Output)
on error resume next
dim fso,fsofolderfiles 'create variables
set fso=Server.CreateObject("Scripting.FileSystemObject") ' creating the File System Object one server, provided by Microsoft)
Set fsofolderfiles = fso.GetFolder(Path)
Set Output = fsofolderfiles.files
set fso=nothing 'Kill the FSO object from the server after use.
if err.number <> 0 then 'if an error occurred then
ErrNum = err.number 'Save Error number for Get Error Function
ErrDes = err.description 'Save Error description for Get Error Function
err.clear 'Clear the err object, so new errors can be processed
GetFiles = false ' return false because of the error that occurred
else
GetFiles = true ' return true No errors :o)
end if
End Function
'----------------------------------------------------------------------------------------------------------------------------------------------
'Get Folders function made by:
'Paw Jershauge
'
http://Support.scf.dkPublic Function GetFolders(Path,Output)
on error resume next
dim fso,fsofolders 'create variables
set fso=Server.CreateObject("Scripting.FileSystemObject") ' creating the File System Object one server, provided by Microsoft)
Set fsofolders = fso.GetFolder(Path)
Set Output = fsofolders.SubFolders
set fso=nothing 'Kill the FSO object from the server after use.
Set fsofolders=nothing 'Kill the fsofolders object from the server after use.
if err.number <> 0 then 'if an error occurred then
ErrNum = err.number 'Save Error number for Get Error Function
ErrDes = err.description 'Save Error description for Get Error Function
err.clear 'Clear the err object, so new errors can be processed
GetFolders = false ' return false because of the error that occurred
else
GetFolders = true ' return true No errors :o)
end if
End Function
%>
<HTML>
<HEAD>
<TITLE> Mapper og filer </TITLE>
</HEAD>
<BODY>
<%
if request.querystring("NavToFolder") > "" then
FolderToLookIn = request.querystring("NavToFolder")
else
FolderToLookIn = server.mappath(".")
end if
Dim Folders,Folder,File,Files
if GetFolders(FolderToLookIn,Folders) then
response.write "<U>Der " & Folders.count & " mapper i (" & FolderToLookIn & ") biblioteket.</U><br>"
for each Folder in Folders
response.write "- <a href='mapper.asp?NavToFolder=" & Folder.Path & "'><B>" & Folder.Name & "</B></a><br>"
next
else
response.write "Der opstod en fejl...<br>"
response.write "Fejl kode: " & ErrNum & "<br>"
response.write "Fejl beskrivelse: " & ErrDes & "<br>"
end if
response.write "<br><br>"
if GetFiles(FolderToLookIn,Files) then
response.write "<U>Der " & Files.count & " Filer i (" & FolderToLookIn & ") biblioteket.</U><br>"
for each File in Files
response.write "- <B>" & File.Name & "</B><br>"
next
else
response.write "Der opstod en fejl...<br>"
response.write "Fejl kode: " & ErrNum & "<br>"
response.write "Fejl beskrivelse: " & ErrDes & "<br>"
end if
%>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
