DevTrain - Scripting.FileSystemObject Teil II

Diese Artikel beschreibt das Scripting.FileSystemObject in Bezug auf Ordner und Dateien
- Pfade
- Ordner
- Files und deren Eigenschaften
- Laufwerke und deren Art
- Über- und untergeordnete Ordner

Die restlichen Befehle zum Scripting.FileSystemObject finden Sie im Artikel Scripting.FileSystemObject Teil I

Scripting File System Object instantiieren

Set oFSO = CreateObject("Scripting.FileSystemObject")

Pfad ermitteln, der dargestellt werden soll

CurrentPath = Request.QueryString("Path")

Wenn kein Pfad augewählt wurde, dann Defaultpfad zeigen

If CurrentPath = "" Then CurrentPath = "C:"

Ordner instanziieren

Set oFolder = oFSO.GetFolder(CurrentPath)

Files instanziieren

Set oFolderContents = oFolder.Files

Laufwerke anzeigen

%><title>Current Path: <%= CurrentPath%></title>
<table width="100%" border="1">
<tr bgcolor="orange">
<th>Laufwerke anzeigen</th>
<th>Art des Laufwerks</th>
</tr>
  <%
  For each oDrive in oFSO.Drives
  %><tr><td>
    <%Select Case oDrive.DriveType %>
    <%Case 1%>< BR>     <ahref="filesystemDrive.asp?Path=<%=oDrive.DriveLetter & ":"%>"><%=oDrive.DriveLetter%></td><td>Wechseldatenträger</a>
    <%Case 2%>< BR>     <ahref="filesystemDrive.asp?Path=<%=oDrive.DriveLetter & ":"%>"><%=oDrive.DriveLetter%></td><td>Festplatte</a>
    <%Case 3%>< BR>     <ahref="filesystemDrive.asp?Path=<%=oDrive.DriveLetter & ":"%>"><%=oDrive.DriveLetter%></td><td>Netzlaufwerk</a>
    <%Case 4%>< BR>     <ahref="filesystemDrive.asp?Path=<%=oDrive.DriveLetter & ":"%>"><%=oDrive.DriveLetter%></td><td>CD Rom</a>
    <%End Select %>
   </td></tr><%
  Next%></table>
<%

Wenn überordner da sind, dann Link anzeigen

%>
<table width="100%" border="1">
<tr bgcolor="orange">
<th>Übergeordnete Ordner anzeigen valls vorhanden</th></table>
<%
If Not oFolder.IsRootFolder Then%>< BR><aHREF="filesystemDrive.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>">Überordner anzeigen</a>
<%End If%>

Subfolders anzeigen

table width="100%" border="1">
<tr bgcolor="orange">
<th>Unterordner</th>
<th>Datum</th>
</tr><%
For Each oSubFolder in oFolder.SubFolders
%>< BR> <tr><td><aHREF="filesystemDrive.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>">
    <%= oSubFolder.Name %></td>

<td><%= oSubFolder.DateLastModified %></td>
<%Next%></tr></table>

Files anzeigen

<table width="100%" border="1">
<tr bgcolor="orange">
<th>File</th>
<th>Type</th>
<th>Grösse</th>
<th>Datum</th>
</tr>
<%
For Each oFileItem in oFolder.Files%>
<tr>
  <td><%= oFileItem.Name %></td>
  <td><%= oFileItem.Type%></td>
  <td><%= oFileItem.Size %></td>
  <td><%= oFileItem.DateLastModified%></td>
</tr>
<%Next%>
</table>