rothen ecotronics Bern: ASP-Skript "ASP Weitere Objekte: Dateien in einem Verzeichnis in Kombinationsfeld zur Auswahl anbieten"

<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
on error resume next

'**********************************************************
'Variablendeklaration
Dim objfile
Dim objfolder
Dim objfs
Dim strfolderpath
Dim strrelpath

'**********************************************************
'Variableninitialisierung
strrelpath = "/images/"
Set objfs = CreateObject("Scripting.FileSystemObject")

%>

<html>
<head>
  <title>ASP Weitere Objekte:
    Dateien in einem Verzeichnis in Kombinationsfeld zur Auswahl anbieten</title>
  <meta name="description" content="Mithilfe des FileSystem Object
    werden in dieser ASP-SeiteBilddateien in einem
    Verzeichnis ausgelesenn" />
  <meta name="keywords" content="ASP, FileSystemObject, Dateiverwaltung,
    File Object, Folder Object" />

</head>

<body>
Dieses Beispiel entstand (wie viele andere auch) aufgrund einer Frage in einem ASP-Kurs.
Es geht darum, mithilfe des FileSystem Object Bilddateien in einem
Verzeichnis auszulesen und in einem Kombinationsfeld zur Auswahl anzubieten.
Wird das Formular abgeschickt, dann zeigt die zweite Seite das Bild an.
<form method="POST" action="040bilderanzeigen2.asp" name=form1>
  <select size="1" name="frmfldfilename">

<%
strfolderpath = server.MapPath(strrelpath)
if objfs.FolderExists(strfolderpath) then
  Set objfolder = objfs.GetFolder(strfolderpath)
  For Each objfile in objfolder.Files
    'In Kombinationsfeld
    Response.Write("<option value=""" & objfile.name & """>" &_
      objfile.name & "</option>"&vbCrLf)
  Next

else
  Response.Write("Ordner " & strrelpath & "nicht gefunden<br />")
end if
%>
  </select>
  <input type="submit" value="Abschicken" name="btnsubmit" />
</form>

    
  </body>
</html>

Demo: beispiele/040bilderanzeigen1.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch