---
title: "FileSystemObject"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6590-filesystemobject"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sandman"
published: "2000-09-14T14:43:00.000Z"
updated: "2000-09-14T14:46:00.000Z"
replies: 1
views: 131
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6590-filesystemobject"
---

# FileSystemObject

## #1 — Sandman, 2000-09-14T14:43Z

Den här koden visar alla filer i samma katalog som den ligger i:

Fråga: Hur gör jag om jag vill visa alla kataloger som ligger där också??

\<HTML\>
\<HEAD\>
\<TITLE\>FileSystemObject\</TITLE\>
\</HEAD\>
\<BODY\>
\<%
	dim strPathInfo, strPhysicalPath
	strPathInfo = Request.ServerVariables("PATH_INFO")
	strPhysicalPath = Server.MapPath(strPathInfo)
	
	Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	set objFile = objFSO.GetFile(strPhysicalPath)
	set objFolder = objFile.ParentFolder
	set objFolderContents = objFolder.Files	
	
			
%\>
\<TABLE cellpadding=5\>
	\<TR align=center\>
		\<TH align=left\>\<font face="verdana, arial, helvetica" size="1"\>File Name\</font\>\</TH\>
		\<TH\>\<font face="verdana, arial, helvetica" size="1"\>Type\</font\>\</TH\>
	    \<TH\>\<font face="verdana, arial, helvetica" size="1"\>File Size\</font\>\</TH\>
	    \<TH\>\<font face="verdana, arial, helvetica" size="1"\>Last Modified\</font\>\</TH\>
	    	\</TR\>	
\<%
	For Each objFileItem in objFolderContents
%\>
		\<TR\>\<TD align=left\>
		\<A HREF="\<%= objFileItem.Name %\>"\>\<FONT FACE="Verdana" SIZE="1"\>
			\<%= objFileItem.Name %\>\</A\>\</FONT\>\</TD\>
		\<TD align=right\>\<FONT FACE="verdana" SIZE="1" COLOR="DarkGreen"\>
			\<%= objFileItem.type %\>\</FONT\>\</TD\>
		\<TD align=right\>\<FONT FACE="verdana" SIZE="1" COLOR="DarkGreen"\>
			\<%= objFileItem.size %\>\</FONT\>\</TD\>
		\<TD align=right\>\<FONT FACE="verdana" SIZE="1" COLOR="DarkGreen"\>
			\<%= objFileItem.DateLastModified %\>\</FONT\>\</TD\>
		\<TD align=right\>\<FONT FACE="verdana" SIZE="1" COLOR="DarkGreen"\>
			\</TD\>
		\</TR\>
\<%
	Next
%\>
\</TABLE\>

\<!-- #include file="FileDetails.inc" --\>
\<HR\>
\</BODY\>
\</HTML\>

Permalänk: https://www.webforum.nu/p/6590

## #2 — @nders, 2000-09-14T14:46Z

kolla här:

 <http://msdn.microsoft.com/scripting/vbscript/doc/sgworkingwithdrives.htm>

Permalänk: https://www.webforum.nu/p/246473

---

Tråden på webben: https://www.webforum.nu/amne/asp/6590-filesystemobject