Sideway
output.to from Sideway
Draft for Information Only

Content

Knowledge Base: Examples of Recursion
 Recursively Directory Listing by Using FileSystemObject
  Examples:
 Recursively Array Listing by Using VBScript
  Examples:

Knowledge Base: Examples of Recursion

Recursion: Each item of an expression is generated by repeating a particular definition recursively.

Recursively Directory Listing by Using FileSystemObject

Recursively Directory Listing by Using FileSystemObject.

Examples:

Example of Recursively Directory Listing by Using FileSystemObject.

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8"> 
    </head>
    <body>
<script runat="server" language="VBScript">
Dim fso, objtemp, fderpar, cnt0
Set fso = CreateObject("Scripting.FileSystemObject")
Set objtemp = fso.CreateFolder("R:\temp0")
Set objtemp = fso.CreateFolder("R:\temp0\temp1")
Set objtemp = fso.CreateFolder("R:\temp0\temp1\temp2")
Set objtemp = fso.CreateFolder("R:\temp0\temp1\temp2\temp3")
Set objtemp = fso.CreateTextFile("R:\temp0\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file2.txt")
fderpar="R:\temp0"
cnt0=0
Response.Write fderpar&"<br />"
Response.Write LstFder(fderpar,cnt0)

Function LstFder(fder_par,cnt)
dim fso, objfder, colfder, colfile, subfder, subfile, count
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfder = fso.GetFolder(fder_par)
Set colfder = objfder.SubFolders
Set colfile = objfder.Files
count=cnt+1
For Each subfder In colfder
   Response.Write PrtArrow(count)&subfder&"--"& count&"<br />"
   Call LstFder(subfder,count)
Next
For Each subfile In colfile
   Response.Write PrtArrow(count)&subfile&"<br />"
Next
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
   count=count-1
   Response.Write "-->"
loop
End Function
</script>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8"> 
    </head>
    <body>

    </body>
</html>R:\temp0<br />-->R:\temp0\temp1--1<br />-->-->R:\temp0\temp1\temp2--2<br />-->-->-->R:\temp0\temp1\temp2\temp3--3<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file0.txt<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file1.txt<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file2.txt<br />-->-->-->R:\temp0\temp1\temp2\file0.txt<br />-->-->-->R:\temp0\temp1\temp2\file1.txt<br />-->-->-->R:\temp0\temp1\temp2\file2.txt<br />-->-->R:\temp0\temp1\file0.txt<br />-->-->R:\temp0\temp1\file1.txt<br />-->-->R:\temp0\temp1\file2.txt<br />-->R:\temp0\file0.txt<br />-->R:\temp0\file1.txt<br />-->R:\temp0\file2.txt<br />
HTML Web Page Embedded Output:

Recursively Array Listing by Using VBScript

Recursively Array Listing by Using VBScript

Examples:

Example of Recursively Array Listing by Using VBScript.last updated 11Jul2016

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8"> 
    </head>
    <body>
<script runat="server" language="VBScript">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "
For i = LBound(OriArry) to UBound(OriArry)
   OriArry(i)=array(i,OriArry(i))
Next
Response.Write "First Modified Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "
OriArry(0)="0"
OriArry(3)(1)=array(OriArry(3)(1),"34")
OriArry(6)(1)=array(OriArry(6)(1),"34","65","34","65","34","65","34","65","34","65","34","65")
OriArry(6)(1)(1)=array(OriArry(3)(1),"34")
Response.Write "Second Modified Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
Response.Write "<br /> "
call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   If k<l and j>0 Then
       flag=1
   End If
   If IsArray(Ori_Arry(i)) Then
       call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
   Else
       Response.Write Ori_Arry(i)
       If i<>UBound(Ori_Arry) Then
           Response.Write ", "
       End If
   End If
Next
Response.Write "]"
If flag=1 then
   Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
   count=count-1
   Response.Write "-->"
loop
End Function
</script>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8"> 
    </head>
    <body>

    </body>
</html>Original Array<br /> [s, i, d, e, w, a, y, o, u, t]<br /> First Modified Array<br /> [<br /> -->[0, s],<br /> -->[1, i],<br /> -->[2, d],<br /> -->[3, e],<br /> -->[4, w],<br /> -->[5, a],<br /> -->[6, y],<br /> -->[7, o],<br /> -->[8, u],<br /> -->[9, t]]<br /> Second Modified Array<br /> [0, <br /> -->[1, i],<br /> -->[2, d],<br /> -->[3, <br /> -->-->[e, 34]],<br /> -->[4, w],<br /> -->[5, a],<br /> -->[6, <br /> -->-->[y, <br /> -->-->-->[<br /> -->-->-->-->[e, 34],34],65, 34, 65, 34, 65, 34, 65, 34, 65, 34, 65]],<br /> -->[7, o],<br /> -->[8, u],<br /> -->[9, t]]<br /> 
HTML Web Page Embedded Output:

©sideway

ID: 160600017 Last Updated: 16/6/2016 Revision: 0 Ref:

close

References

  1. Active Server Pages,  
  2. ASP Overview,  
  3. ASP Best Practices,  
  4. ASP Built-in Objects,  
  5. Response Object,  
  6. Request Object,  
  7. Server Object (IIS),  
  8. Application Object (IIS),  
  9. Session Object (IIS),  
  10. ASPError Object,  
  11. ObjectContext Object (IIS),  
  12. Debugging Global.asa Files,  
  13. How to: Debug Global.asa files,  
  14. Calling COM Components from ASP Pages,  
  15. IIS ASP Scripting Reference,  
  16. ASP Keywords,  
  17. Creating Simple ASP Pages,  
  18. Including Files in ASP Applications,  
  19. ASP Overview,  
  20. FileSystemObject Object,  
  21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx,  
  22. ADO Fundamentals,  
close

Latest Updated LinksValid XHTML 1.0 Transitional Valid CSS!Nu Html Checker Firefox53 Chromena IExplorerna
IMAGE

Home 5

Business

Management

HBR 3

Information

Recreation

Hobbies 7

Culture

Chinese 1097

English 337

Reference 67

Computer

Hardware 149

Software

Application 187

Digitization 24

Numeric 19

Programming

Web 761

CSS 1

ASP.NET 1

Regular Expression 1

HTML

Knowledge Base

Common Color 1

Html Entity (Unicode) 1

Html 401 Special 1

OS 389

MS Windows

Windows10 1

.NET Framework 1

DeskTop 7

Knowledge

Mathematics

Formulas 8

Algebra 20

Number Theory 206

Trigonometry 18

Geometry 18

Calculus 67

Complex Analysis 21

Engineering

Tables 8

Mechanical

Mechanics 1

Rigid Bodies

Statics 92

Dynamics 37

Fluid 5

Fluid Kinematics 5

Control

Process Control 1

Acoustics 19

FiniteElement 2

Physics

Electric 11

Biology 1

Geography 1


Copyright © 2000-2019 Sideway . All rights reserved Disclaimers last modified on 06 September 2019