DevTrain

Autor: Unbekannt nn

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>


Erfasst am: 14.02.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=311
© Copyright 2003 ppedv AG - http://www.ppedv.de