Album script
hej. Jeg har koden her fra et tidligere spørgsmål, dog har jeg nu brug for at få rettet lidt i det.Som koden er nu tager hvilken som helst mappe på serveren som jeg angiver. altså en hel stå som eks. d:\www\hjemmeside\mappe\
Det er her jeg vil have lavet det om. i stedet for at den gør det, vil jeg hellere kunne angive en sti til den, eks sådan her
/hjemmeside/mappe/
Nogen som kan hjælpe mig med det ?
<%
Public ErrNum,ErrDes
'----------------------------------------------------------------------------------------------------------------------------------------------
'Get Files function made by:
'Paw Jershauge
'http://Support.scf.dk
Public 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.dk
Public 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
%>
