Home > Secured Client Access

Secured Files

<% 'folderspec = ("D:\InetPub\wwwroot\ramdwong\clients") folderspec = ("\\mammoth\www\ramdwong\public_html\clients") Dim fs, f, f1, s, sf, path Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set sf = f.Files For Each f1 in sf If (InStr(1, f1.Name, ".asp") = 0 ) AND (InStr(1, f1.Name, ".htaccess") = 0 ) AND (f1.Attributes <> 2) AND (f1.Attributes <> 4) AND (f1.Attributes <> 16) Then %> <%=f1.Name%> - Last Modified: <%=f1.DateLastModified%>
<% End If Next %>