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:
    <!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">
    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>
    <%
    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
    %>
        </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>
    Create Folder Path: R:\zzztemp0\temp1<br />Created Folder: temp1<br />
        </body>
    </html>
    HTML Web Page Embedded Output:
  2. Example of FileSystemObject Folder Name Listing Function. last updated 9Aug2016
    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">
    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>
    <%
    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")
    %>
        </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>
    Create Folder Path: <br />R:\zzztemp1\temp1<br />R:\zzztemp1\temp2<br />R:\zzztemp1\temp3<br />Created Folder: <br />temp1<br />temp2<br />temp3<br />
        </body>
    </html>
    HTML Web Page Embedded Output:
  3. Example of FileSystemObject Folder Copy Function. last updated 9Aug2016
    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">
    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>
    <%
    Dim fderpathb, fderpathc
    fderpathb=array("R:\zzztemp2\temp1", "R:\zzztemp2\temp1\temp2", "R:\zzztemp2\temp1\temp2\temp2")
    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)
    %>
        </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>
    Source Folder: <br />R:\zzztemp2\temp1<br />R:\zzztemp2\temp1\temp2<br />R:\zzztemp2\temp1\temp2\temp2<br />Copied Folder: <br />R:\zzztemp3\temp1<br />R:\zzztemp3\temp1\temp2<br />R:\zzztemp3\temp1\temp2\temp2<br />
        </body>
    </html>
    HTML Web Page Embedded Output:

©sideway

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

close

References

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

Home 5

Business

Management

HBR 3

Information

Recreation

Hobbies 8

Culture

Chinese 1097

English 337

Reference 67

Computer

Hardware 149

Software

Application 198

Digitization 119

Numeric 19

Programming

Web 283

Unicode 494

HTML 65

CSS 58

ASP.NET 97

OS 389

DeskTop 7

Python 19

Knowledge

Mathematics

Formulas 8

Algebra 25

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 27

Biology 1

Geography 1


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