Sideway
output.to from Sideway



Draft for Information Only

Content

Knowledge Base: Examples of Simple Function
 Simple Folder Functions of Using FileSystemObject
  Examples:

Knowledge Base: Examples of Simple Function

Simple Folder Functions of Using FileSystemObject

Simple Folder Functions of Using FileSystemObject.

Examples:

  1. Example of FileSystemObject SubFolder Creation Function. last updated 9Aug2016
    ASP VbScript Command:
    <SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
    Dim fderpath, objfso, objfder, objsubfders, objsubfder
    fderpath="R:\zzztemp0\temp1"
    Response.Write "Create Folder Path: "&fderpath&"<br />"
    Response.Write proc_crt_fder(fderpath)
    Response.Write "Created Folder: "
    Set objfso = CreateObject("Scripting.FileSystemObject")
    Set objfder = objfso.GetFolder("R:\zzztemp0")
    Set objsubfders = objfder.SubFolders
    For Each objsubfder In objsubfders
    Response.Write objsubfder.name&"<br />"
    Next
    Set objfso = Nothing
    
    Function proc_crt_fder(fder__path)
    Dim objfso
    Set objfso = CreateObject("Scripting.FileSystemObject")
    If objfso.FolderExists(fder__path)=False Then
       objfso.CreateFolder(fder__path)
    End If
    Set objfso = Nothing
    End Function
    </SCRIPT>
    HTML Web Page In-line Output:
    Create Folder Path: R:\zzztemp0\temp1
    Created Folder: temp1
  2. Example of FileSystemObject Folder Name Listing Function. last updated 9Aug2016
    ASP VbScript Command:
    <SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
    Dim fderpath
    fderpath=array("R:\zzztemp1\temp1","R:\zzztemp1\temp2","R:\zzztemp1\temp3")
    Response.Write "Create Folder Path: <br />"
    Response.Write proc_lst_arry(fderpath)
    Response.Write proc_crt_fder(fderpath)
    Response.Write "Created Folder: <br />"
    Response.Write proc_lst_subfder("R:\zzztemp1")
    
    Function proc_lst_arry(str__arry)
    Dim tmplstarry, i
    tmplstarry=""
    If IsArray(str__arry)=False Then
       tmplstarry = str__arry&"<br />"
    Else
       For i = 0 to Ubound(str__arry)
           tmplstarry = tmplstarry & str__arry(i)&"<br />"
       Next
    End If
    proc_lst_arry=tmplstarry
    End Function
    
    Function proc_crt_fder(fder__path)
    Dim objfso, i
    Set objfso = proc_crt_fso()
    If IsArray(fder__path)=False Then
       proc_crt_fder_1 objfso,fder__path
    Else
       For i = 0 to Ubound(fder__path)
           proc_crt_fder_1 objfso,fder__path(i)
       Next
    End If
    Set objfso = Nothing
    End Function
    
    Function proc_crt_fder_1(obj__fso,fder__path)
    If obj__fso.FolderExists(fder__path)=False Then
       obj__fso.CreateFolder(fder__path)
    End If
    End Function
    
    Function proc_lst_subfder(fder__par)
    Dim tmplstfder, objfso, objfder, objsubfders, objsubfder
    tmplstfder=""
    Set objfso = proc_crt_fso()
    Set objfder = objfso.GetFolder(fder__par)
    Set objsubfders = objfder.SubFolders
    For Each objsubfder In objsubfders
       tmplstfder=tmplstfder&objsubfder.name&"<br />"
    Next
    proc_lst_subfder=tmplstfder
    Set objfso = Nothing
    End Function
    
    Function proc_crt_fso()
    Dim objfso
    Set objfso = CreateObject("Scripting.FileSystemObject")
    Set proc_crt_fso = objfso
    Set objfso = Nothing
    End Function
    </SCRIPT>
    HTML Web Page In-line Output:
    Create Folder Path:
    R:\zzztemp1\temp1
    R:\zzztemp1\temp2
    R:\zzztemp1\temp3
    Created Folder:
    temp1
    temp2
    temp3
  3. Example of FileSystemObject Folder Copy Function. last updated 9Aug2016
    ASP VbScript Command:
    <SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
    Dim fderpathb, fderpathc
    fderpathb=array("R:\zzztemp2\temp1","R:\zzztemp2\temp1\temp2","R:\zzztemp2\temp1\temp2\temp2","R:\zzztemp2\temp3")
    fderpathbpar="R:\zzztemp2"
    fderpathcpar="R:\zzztemp3"
    Response.Write "Source Folder: <br />"
    Response.Write proc_crt_fder(fderpathb)
    Response.Write proc_lst_fder(fderpathbpar)
    Response.Write proc_cpy_fder(fderpathbpar,fderpathcpar)
    Response.Write "Copied Folder: <br />"
    Response.Write proc_lst_fder(fderpathcpar)
    
    Function proc_lst_arry(str__arry)
    Dim tmplstarry, i
    tmplstarry=""
    If IsArray(str__arry)=False Then
       tmplstarry = str__arry&"<br />"
    Else
       For i = 0 to Ubound(str__arry)
           tmplstarry = tmplstarry & str__arry(i)&"<br />"
       Next
    End If
    proc_lst_arry=tmplstarry
    End Function
    
    Function proc_crt_fder(fder__path)
    Dim objfso, i
    Set objfso = proc_crt_fso()
    If IsArray(fder__path)=False Then
       proc_crt_fder_1 objfso,fder__path
    Else
       For i = 0 to Ubound(fder__path)
           proc_crt_fder_1 objfso,fder__path(i)
       Next
    End If
    Set objfso = Nothing
    End Function
    
    Function proc_crt_fder_1(obj__fso,fder__path)
    If obj__fso.FolderExists(fder__path)=False Then
       obj__fso.CreateFolder(fder__path)
    End If
    End Function
    
    Function proc_lst_fder(fder_par)
    Dim tmplstfder, objfso, objfder, objsubfders, objsubfder
    tmplstfder=""
    Set objfso = proc_crt_fso()
    Set objfder = objfso.GetFolder(fder_par)
    Set objsubfders = objfder.SubFolders
    For Each objsubfder In objsubfders
       tmplstfder=tmplstfder&objfso.GetAbsolutePathName(objsubfder)&"<br />"
           tmplstfder=tmplstfder&proc_lst_fder(objsubfder)
    Next
    proc_lst_fder=tmplstfder
    End Function
    
    Function proc_cpy_fder(fder_src,fder_dst)
    Dim tmplstfder, objfso, objfder, objsubfders, objsubfder
    tmplstfder=""
    Set objfso = proc_crt_fso()
    Call objfso.CopyFolder(fder_src,fder_dst)
    End Function
    
    Function proc_crt_fso()
    Dim objfso
    Set objfso = CreateObject("Scripting.FileSystemObject")
    Set proc_crt_fso = objfso
    Set objfso = Nothing
    End Function
    </SCRIPT>
    HTML Web Page In-line Output:
    Source Folder:
    R:\zzztemp2\temp1
    R:\zzztemp2\temp1\temp2
    R:\zzztemp2\temp1\temp2\temp2
    R:\zzztemp2\temp3
    Copied Folder:
    R:\zzztemp3\temp1
    R:\zzztemp3\temp1\temp2
    R:\zzztemp3\temp1\temp2\temp2
    R:\zzztemp3\temp3

©sideway
close

References

  1. Active Server Pages, http://msdn.microsoft.com/en-us/library/aa286483.aspx, updated 20Dec2012
  2. ASP Overview, http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx, updated 21Dec2012
  3. ASP Best Practices, http://technet.microsoft.com/en-us/library/cc939157.aspx, updated 15Apr2013
  4. ASP Built-in Objects, http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx, updated 20Dec2012
  5. Response Object, http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx, updated 20Dec2012
  6. Request Object, http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx, updated 20Dec2012
  7. Server Object (IIS), http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx, updated 20Dec2012
  8. Application Object (IIS), http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx, updated 20Dec2012
  9. Session Object (IIS), http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx, updated 20Dec2012
  10. ASPError Object, http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx, updated 20Dec2012
  11. ObjectContext Object (IIS), http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx, updated 20Dec2012
  12. Debugging Global.asa Files, http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx, updated 15Apr2013
  13. How to: Debug Global.asa files, http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx, updated 15Apr2013
  14. Calling COM Components from ASP Pages, http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx, updated 15Apr2013
  15. IIS ASP Scripting Reference, http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx, updated 15Apr2013
  16. ASP Keywords, http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx, updated 15Apr2013
  17. Creating Simple ASP Pages, http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx, updated 15Apr2013
  18. Including Files in ASP Applications, http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx, updated 15Apr2013
  19. ASP Overview, http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx, updated 15Apr2013
  20. FileSystemObject Object, http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx, updated 14Mayr2013
  21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx, ADO Object Model, updated 15Apr2013
  22. ADO Fundamentals, http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx, updated 14Mayr2013
close

ID: 160900008 Last Updated: 2016/9/5 Revision: Ref:

IMAGE

Home (5)

Business

Management

HBR (3)

Information

Recreation

Hobbies (7)

Culture

Chinese (1097)

English (336)

Reference (66)

Computer

Hardware (149)

Software

Application (187)

Digitization (24)

Numeric (19)

Programming

Web (578)new

CSS (SC)

HTML

Knowledge Base

Common Color (SC)

Html Entity (Unicode) (SC)

Html 401 Special (SC)

OS (370)

MS Windows

Windows10 (SC)

DeskTop (6)

Knowledge

Mathematics

Formulas (8)

Number Theory (206)

Algebra (20)

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)

Biology (1)

Geography (1)


Copyright © 2000-2019 Sideway . All rights reserved Disclaimers last modified on 10 Feb 2019