<!-- #include virtual="/sj4web/include.asp" --> <% main() Sub main() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta name="robots" content="all"> <title><% = AppTitle %></title> </head> <body> <font size="1"> <br> "C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000/sj4web/system/tablelist.asp?w=1<br> <br> "C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000/sj4web/system/objectlist.asp?w=1<br> <br> "C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/tablelist.asp?w=1<br> <br> "C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/objectlist.asp?w=1<br> <br> "C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/template.asp<br> </font> </body> </html> <% End Sub Sub sFolderSearch(myFolder) Dim mySubFolder With myFolder If .SubFolders.Count > 0 Then For Each mySubFolder In .SubFolders If InStr(mySubFolder, "datakanri") > 0 Or (InStr(mySubFolder, "data") = 0 And InStr(mySubFolder, "images") = 0) Then Response.Write("cd ") Response.Write(Replace(mySubFolder, "D:\InetPub\sj4websource", "\sj4web")) Response.Write("<br>" & vbCrLf) Response.Write("\screnc.exe -f -xl *.asp") Response.Write("<br>" & vbCrLf) Response.Write("<br>" & vbCrLf) sFolderSearch(mySubFolder) End if Next End If End With End Sub %>