<%
main()
Sub main()
%>
<% = AppTitle %>
"C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000/sj4web/system/tablelist.asp?w=1
"C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000/sj4web/system/objectlist.asp?w=1
"C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/tablelist.asp?w=1
"C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/objectlist.asp?w=1
"C:\Program Files\Internet Explorer\iexplore.exe" http://storm2000dev/sj4web/system/template.asp
<%
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("
" & vbCrLf)
Response.Write("\screnc.exe -f -xl *.asp")
Response.Write("
" & vbCrLf)
Response.Write("
" & vbCrLf)
sFolderSearch(mySubFolder)
End if
Next
End If
End With
End Sub
%>