Dalun Software

<%
    ' ReadDir(strDirectory) as integer
    ' ReadDir returns:
    '          1 succeed
    '          0 directory not exists
    '         -1 failure
    '
    ' Sample Operation:
    ' Get a file name and sub directory list of directory "c:\windows".
    '
    '
    ' This file is provided as part of  ASP Power Widgets Samples
    '
    ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
    ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
    ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
    ' OF MERCHANTABILITY AND/OR FITNESS FOR A  PARTICULAR
    ' PURPOSE.

    ' Copyright 1998-1999. All rights reserved.
    ' Dalun Software Inc. ASP Power Widgets
    ' http://www.dalun.com


    vbNormal    =    0    'Normal
    vbReadOnly  =    1    'Read-only
    vbHidden    =    2    'Hidden
    vbSystem    =    4    'System
    vbDirectory =    16   'Directory or folder
    vbArchive   =    32   'File has changed since last backup

    Dim sDirName

    Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
    sDirName = oFDMgt.GetWindowsDirectory
    response.write "<p><h2>Read directory " & sDirName & " .</h2></p>"

    if oFDMgt.ReadDir(sDirName)= -1 then
        response.write "Oops, Read directory failed.<br>"
        response.write oFDMgt.GetLastErrDescription
    else
        Set oFilelist = ofdmgt.Files

        response.write "<table width=100% border=0>"
        For Each file In oFilelist
            response.write "<tr>"
            response.write "<td><font size=2 face=""Courier New"">" & file.Name & "</font></td>"
            response.write "<td align=right><font size=2 face=""Courier New"">" & file.Length & "</font></td>"
            response.write "<td align=right><font size=2 face=""Courier New"">" & file.DateTime & "</font></td>"

            sAttr="-"
            if file.Attr And vbReadOnly then
                sAttr=sAttr & "R-"
            else
                sAttr=sAttr & "--"
            end if
            if file.Attr And vbHidden then
                sAttr=sAttr & "H-"
            else
                sAttr=sAttr & "--"
            end if
            if file.Attr And vbSystem then
                sAttr=sAttr & "S-"
            else
                sAttr=sAttr & "--"
            end if
            if file.Attr And vbArchive then
                sAttr=sAttr & "A-"
            else
                sAttr=sAttr & "--"
            end if

            response.write "<td><font size=2 face=""Courier New"">" & sAttr & "</font></td>"
            response.write "</tr>"
        Next
        response.write "</table>"
        response.write "<font size=2 face=""Courier New""><br>Total " & cstr(oFileList.count) & " files read.<br><br></font>"

        response.write "<table width=100% border=0>"
        Set oSubDirList = ofdmgt.SubDirs
        For Each subdir In oSubDirList
            response.write "<tr>"
            response.write "<td><font size=2 face=""Courier New"">" & subdir.Name & "</font></td>"
            response.write "<td align=right><font size=2 face=""Courier New"">" & "DIR" & "</font></td>"
            response.write "<td align=right><font size=2 face=""Courier New"">" & subdir.DateTime & "</font></td>"

            sAttr="-"
            if subdir.Attr And vbReadOnly then
                sAttr=sAttr & "R-"
            else
                sAttr=sAttr & "--"
            end if
            if subdir.Attr And vbHidden then
                sAttr=sAttr & "H-"
            else
                sAttr=sAttr & "--"
            end if
            if subdir.Attr And vbSystem then
                sAttr=sAttr & "S-"
            else
                sAttr=sAttr & "--"
            end if
            if subdir.Attr And vbArchive then
                sAttr=sAttr & "A-"
            else
                sAttr=sAttr & "--"
            end if

            response.write "<td><font size=2 face=""Courier New"">" & sAttr & "</font></td>"
            response.write "</tr>"
        Next
        response.write "</table>"
        response.write "<font size=2 face=""Courier New""><br>Total " & cstr(oSubDirList.count) & " sub directories read.<br><br></font>"
    end if

    Response.write "Disk C has " & CStr(oFDMgt.GetDiskfreeSpace("c:\")) & " bytes left."

    Set oFilelist=nothing
    Set oSubDirList=nothing
    Set oFDMgt = Nothing
%>