<% Dim DirOut DirOut = "" Set fso = CreateObject("Scripting.FileSystemObject") main() sub main() SeekDir(Server.MapPath("/sj4web")) Response.Write( DirOut) End Sub Sub SeekDir(dir) If InStr(dir, "\backup\") > 0 Then Exit Sub End If If InStr(dir, "\data\") > 0 Then Exit Sub End If DirOut = DirOut & dir & "
" & vbCrLf Set src = fso.GetFolder(dir) ' 対象フォルダの指定 For Each FolderName In src.Subfolders SeekDir(FolderName) Next End Sub %>