Ich muss für ein Intranet ein Listing machen, die einen bestimmten Ordner auf der Festplatte des Benutzers anzeigt (z.B. C:/testdir)
Wenn ich folgendes Script benutze, dann liest der mir immer Daten von Remote Server.
PHP-Quellcode
- <%
- ' --- Hier erfolgt die Zuweisung des auszulesenden Verzeichnisses
- InputPath = Server.MapPath("./") & "\"
- ' --- Hier erfolgt der Aufruf der Funktion ListFolder, die für die
- ' --- Ausgabe der Dateien zuständig ist
- Call ListFolder(InputPath)
- ' -----------------------------------------------------------------------------
- Private Sub ListFolder(f_path)
- ' --- Erzeugen eines FSO-Objekts
- Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
- ' --- Erzeugen eines Folder-Objekts
- Set objFolder = objFileSys.GetFolder(f_path)
- ' --- Erzeugen einer Files-Auflistung
- Set objFiles = objFolder.Files
- ' --- Der Name jeder Datei in diesem Verzeichnis wird jetzt ausgegeben
- For Each File in objFiles
- Response.Write "<a href=""" & File.Name & """>" & File.Name & "</a><br>" & vbCrLf
- Next
- ' --- Zerstören der Files-Auflistung
- Set objFiles = Nothing
- ' --- Zerstören des Folder-Objekts
- Set objFolder = Nothing
- ' --- Zerstören des FSO-Objekts
- Set objFileSys = Nothing
- End Sub
- ' -----------------------------------------------------------------------------
- %>
Wie geht das lokal ?!?
Hier könnte ihre Werbung stehen!!