Vise hvad der ligger i mappen m.m.

vil du bare vise  hvad der ligger lige som : www.zequenze.dk/eksperten/ ?

din side melder fejl - spørgsmål 1 : skal vise de filer der ligger i en given mappe

den skal bare vise filerne ?

så brug denne : <%
Function ShowFolderList()
folderspec = server.mappath(\".\")
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
tmp = tmp & \"<a href=\'\" & file.name & \"\'>\" & file.name & \"</A><BR>\"
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

1) http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=101

2) Du skal benytte objektet \"Scripting.FileSystemObject\"...les her for å se alle metodene du kan kalle på dette objektet:
http://www.activeserverpages.dk/aspdigital/appendix_b/filesystem.asp
og her har du hele dokumentasjonen

http://www.asp.dk/docs/vbscript/vbsfsoTOC.htm

/nute

ok - den er god nok! De 10 er dine! Kan du klare spørgsmål 2 også?

no_doubt >> Den viser fint filerne, men ikke evt. mapper man måtte ha\' - ved du om man kan gøre det?

bms >> les min posting @ 23/04 2001 12:48:09  så finner du det du leter etter...

/nute

Hey Nute - bær over med mig - jeg er newbie :-)

Mht. dit første link - så er det jo næsten en søgemaskine man kan hente.

Det jeg vil forsøge at lave er at man kan oprette egne mapper, uploade filer dertil osv.

Nu har jeg kigget lidt på dit link #2 og fundet ved opret mappe:

Function CreateFolderDemo
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"c:\\New Folder\")
  CreateFolderDemo = f.Path
End Function

Men hvordan kalder man den? Jeg mener - man kunne fx have et tekstfelt, ikke, hvor man så skrev hvad mappen skulle hedde. Men hvordan kaldes funktionen?

den første link er faktisk alt du trenger. jo, på en måte er det en søkemaskin, men det er smartere å legge sine foldernavn, filer osv i en database for hurtigere gjennomsøkning. Den kommer tilogmed med mulighet for å tilføye, slette og oppdatere mapper...

/nute

jo jo - men jeg vil jo hellere selv :-)

Ved du hvordan man ville kalde fx den her funktion:

Function CreateFolderDemo
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"c:\\New Folder\")
  CreateFolderDemo = f.Path
End Function

Jeg tror i øvrigt også kun det er en søgemaskine. Der står godt nok \"Tilføj mappe\" - men det er kunne i søgningen! Man opretter altså ikke en mappe...

sånn:

<%
Function CreateFolderDemo
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"c:\\New Folder\")
  CreateFolderDemo = f.Path
End Function

Call CreateFolderDemo
%>

eller en litt modifisert versjon:

<%
Function CreateFolderDemo (folderName)
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"c:\\\" & folderName )
  CreateFolderDemo = f.Path
End Function

Call CreateFolderDemo
%>
/nute

aha... kan man så lave en onclick?

søkemaskin eller ikke søkemaskin....du kan iallefall den delen som henter filene...du kan bare modifisere det litt til ikke å legge noe inn i en db.

/nute

Altså noget i stil med:

<html>
<head>
<title>test</title>
</head>
<%
Function CreateFolderDemo (folderName)
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"d:\\area52.dk\\upload\\\" & folderName )
  CreateFolderDemo = f.Path
End Function
%>
<form name=\"form\" method=\"post\" action=\"\">
  <input type=\"text\" name=\"folderName\">
  <input type=\"submit\" name=\"Submit\" value=\"Submit\" onclick=\"Call CreateFolderDemo\">
</form>
</body>
</html>

heller:

Altså noget i stil med:

<html>
<head>
<title>test</title>
</head>
<%
if( LEN(request.form(\"folderName\")) > 0 ) then
  Call CreateFolderDemo(request.form(\"folderName\"))
end if

Function CreateFolderDemo(folderName)
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"d:\\area52.dk\\upload\\\" & folderName )
  CreateFolderDemo = f.Path
End Function
%>
<form name=\"form\" method=\"post\" action=\"\">
  <input type=\"text\" name=\"folderName\">
  <input type=\"submit\" name=\"Submit\" value=\"Submit>
</form>
</body>
</html> 

/nute