Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home
Home
Output.to

Link:http://output.to/sideway/default.asp?qno=180500022

Script, Scripting Language, VBScript elements, Server-Side VBScript FileSystemObject Object

VBScript FileSystemObject (FSO) Object

FileSystemObject (FSO) Object is a VBScript Object designed for providing simple file sytem accessing, and folders and files processing.. Twenty-six Methods are provided for the manipulation of the file system objectes. Ane one property is provided for returning of all available drives in the file system for further manipulation.

In general, the file system manipulation of a FileSstemObject Object can be divided into four levels, drive level, folder level, file level, and content level. However, the root directory of a path can be manipulated as a Drive Object at drive level or be manipulated as a Folder Object at folder level because drive is used to specify the properties of the file container while folder is used to specify the properties of the filing system of the file container. While a text file can be manipulated as a File Object at file level or manipulated as a TextStream Object at content level.

The returns of Drives Property is a collection of available drive objects, that is the Drives Collection. Additional Count Property, and Item Property are provided for accessing the Properties of Drives Collection directly. Although further properties can be accessed through dot notation, another Object called Drive Object is defined for manipulating these properties of each returned object separately.

  • FileSystemObject Mehtod
    • BuildPath Method
    • CopyFile Method
    • CopyFolder Method
    • CreateFolder Method [≡ Folder object]
    • CreateTextFile Method ≡ TextStream object
    • DeleteFile Method
    • DeleteFolder Method
    • DriveExists Method
    • FileExists Method
    • FolderExists Method
    • GetAbsolutePathName Method
    • GetBaseName Method
    • GetDrive Method ≡ Drive Object
    • GetDriveName Method
    • GetExtensionName Method
    • GetFile Method [≡ File Object]
    • GetFileVersion Method
    • GetFileName Method
    • GetFolder Method [≡ Folder object]
    • GetParentFolderName Method
    • GetSpecialFolder Method [≡ Folder object]
    • GetStandardStream Method ≡ TextStream object
    • GetTempName Method
    • MoveFile Method
    • MoveFolder Method
    • OpenTextFile Method ≡ TextStream object
  • FileSystemObject Property
    • Drives Property ≡ Drives Collection
  • FileSystemObject Collection
    • Drives Property ≡ Drives Collection

FileSystemObject Object

last updated 12/13/2017

is to provide access to a computer's file system.

Syntax

Set fsoobjvar = CreateObject("Scripting.FileSystemObject")

FileSystemObject Methods

last updated 12/14/2017

Twenty-Six Method are provided to manipulate the file system.

Syntax

fsoobjvar.BuildPath(path, name)
fsoobjvar.CopyFile ( source, destination[, overwrite] )
fsoobjvar.CopyFolder ( source, destination[, overwrite] )
fsoobjvar.CreateFolder(foldername)
fsoobjvar.CreateTextFile(filename[, overwrite[, unicode]])
fsoobjvar.DeleteFile ( filespec[, force] )
fsoobjvar.DeleteFolder ( folderspec[, force] )fsoobjvar.DeleteFolder ( folderspec[, force] )
fsoobjvar.DriveExists(drivespec)
fsoobjvar.FileExists(filespec)
fsoobjvar.FolderExists(folderspec)
fsoobjvar.GetAbsolutePathName(pathspec)
fsoobjvar.GetBaseName(path)
fsoobjvar.GetDrive ( drivespec )
fsoobjvar.GetDriveName(path)
fsoobjvar.GetExtensionName(path)
fsoobjvar.GetFile(filespec)
fsoobjvar.GetFileVersion(pathspec)
fsoobjvar.GetFileName(pathspec)
fsoobjvar.GetFolder(folderspec)
fsoobjvar.GetParentFolderName(path)
fsoobjvar.GetSpecialFolder(folderspec)
fsoobjvar.GetStandardStream(standardStreamType [, unicode ])
fsoobjvar.GetTempName ( )
fsoobjvar.MoveFile ( source, destination )
fsoobjvar.MoveFolder ( source, destination )
fsoobjvar.OpenTextFile(filename[, iomode[, create[, format]]])

FileSystemObject Properties

last updated 12/14/2017

One Property is provided for manipulate file system

Syntax

fsoobjvar.Drives

FileSystemObject Collections

last updated 12/14/2017

The output of Drives Property is a collection of Drive Objects, namely Drives Collection

Syntax

Set fsodrivecolvar=fsoobjvar.Drives

Examples

Examples of FileSystemObject Object

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,strs,cmda
cmda=array("strs")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=0  Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q:Next:lst_arry=trim(tmp):End Function

vars="Set sysfso = CreateObject(""Scripting.FileSystemObject""): Set strs=sysfso":dsp_x
vars="strs=sysfso.DriveExists(""R:/"")":dsp_x
vars="strs=sysfso.BuildPath(""R:/"",""Z"")":dsp_x
vars="strs=sysfso.CreateFolder(strs)":dsp_x
vars="strs=sysfso.CreateFolder(""R:/Y"")":dsp_x
vars="Set strs=sysfso.CreateFolder(""R:/W"")":dsp_x
vars="strs=sysfso.CopyFolder(""R:/Y"",""R:/Z/Y"",True)":dsp_x
vars="Set strs=sysfso.CreateTextFile(""R:\Z\t1.txt"",True)":dsp_x
vars="strs=sysfso.CopyFile(""R:\Z\t1.txt"",""R:\Z\t2.txt"",True)":dsp_x
vars="strs=sysfso.MoveFile(""R:\Z\t2.txt"",""R:/Z/Y/"")":dsp_x
vars="sysfso.MoveFolder ""R:\W"",""R:\Z\"" ":dsp_x
vars="strs=sysfso.FileExists(""R:\Z\t2.txt"")":dsp_x
vars="strs=sysfso.FolderExists(""R:\Z"")":dsp_x
vars="strs=sysfso.FolderExists(""R:\"")":dsp_x
vars="Set strs=sysfso.OpenTextFile(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.GetAbsolutePathName("""")":dsp_x
vars="strs=sysfso.GetBaseName(""R:\Z"")":dsp_x
vars="Set strs=sysfso.GetDrive(""R:"")":dsp_x
vars="strs=sysfso.GetDriveName(""R:\Z"")":dsp_x
vars="strs=sysfso.GetExtensionName(""R:\Z"")":dsp_x
vars="strs=sysfso.GetFile(""R:\Z\t1.txt"")":dsp_x
vars="Set strs=sysfso.GetFile(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.GetFileVersion(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.GetFileName(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.GetFolder(""R:\Z\"")":dsp_x
vars="Set strs=sysfso.GetFolder(""R:\Z\"")":dsp_x
vars="strs=sysfso.GetParentFolderName(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.GetSpecialFolder(0)":dsp_x
vars="Set strs=sysfso.GetSpecialFolder(0)":dsp_x
vars="Set strs=sysfso.GetStandardStream(1)":dsp_x
vars="strs=sysfso.GetTempName()":dsp_x
vars="Set strs=Nothing: strs=sysfso.DeleteFile(""R:\Z\t1.txt"")":dsp_x
vars="strs=sysfso.DeleteFolder(""R:\Z"")":dsp_x
vars="strs=sysfso.DeleteFolder(""R:\Y"")":dsp_x
</script>
HTML Web Page In-line Output:
Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp
varsstrs, TypeNameSet sysfso = CreateObject("Scripting.FileSystemObject"): Set strs=sysfso[FileSystemObject], FileSystemObjectstrs=sysfso.DriveExists("R:/")[True], Booleanstrs=sysfso.BuildPath("R:/","Z")[R:/Z], Stringstrs=sysfso.CreateFolder(strs)[R:\Z], Stringstrs=sysfso.CreateFolder("R:/Y")[R:\Y], StringSet strs=sysfso.CreateFolder("R:/W")[R:\W], Folderstrs=sysfso.CopyFolder("R:/Y","R:/Z/Y",True)[], EmptySet strs=sysfso.CreateTextFile("R:\Z\t1.txt",True)[TextStream], TextStreamstrs=sysfso.CopyFile("R:\Z\t1.txt","R:\Z\t2.txt",True)[], Emptystrs=sysfso.MoveFile("R:\Z\t2.txt","R:/Z/Y/")[], Emptysysfso.MoveFolder "R:\W","R:\Z\" [], Emptystrs=sysfso.FileExists("R:\Z\t2.txt")[False], Booleanstrs=sysfso.FolderExists("R:\Z")[True], Booleanstrs=sysfso.FolderExists("R:\")[True], BooleanSet strs=sysfso.OpenTextFile("R:\Z\t1.txt")[TextStream], TextStreamstrs=sysfso.GetAbsolutePathName("")[C:\Windows\System32\inetsrv], Stringstrs=sysfso.GetBaseName("R:\Z")[Z], StringSet strs=sysfso.GetDrive("R:")[R:], Drivestrs=sysfso.GetDriveName("R:\Z")[R:], Stringstrs=sysfso.GetExtensionName("R:\Z")[], Stringstrs=sysfso.GetFile("R:\Z\t1.txt")[R:\Z\t1.txt], StringSet strs=sysfso.GetFile("R:\Z\t1.txt")[R:\Z\t1.txt], Filestrs=sysfso.GetFileVersion("R:\Z\t1.txt")[], Stringstrs=sysfso.GetFileName("R:\Z\t1.txt")[t1.txt], Stringstrs=sysfso.GetFolder("R:\Z\")[R:\Z], StringSet strs=sysfso.GetFolder("R:\Z\")[R:\Z], Folderstrs=sysfso.GetParentFolderName("R:\Z\t1.txt")[R:\Z], Stringstrs=sysfso.GetSpecialFolder(0)[C:\Windows], StringSet strs=sysfso.GetSpecialFolder(0)[C:\Windows], FolderSet strs=sysfso.GetStandardStream(1)[TextStream], TextStreamstrs=sysfso.GetTempName()[radB539A.tmp], StringSet strs=Nothing: strs=sysfso.DeleteFile("R:\Z\t1.txt")[], Emptystrs=sysfso.DeleteFolder("R:\Z")[], Emptystrs=sysfso.DeleteFolder("R:\Y")[], Empty
Previous Month  MAY  2018  Next Month
SMTWTFS
12345
6789101112
13141516171819
20212223242526
2728293031

Previous Month  OCT  2017  Next Month
SMTWTFS
1234567
891011121314
15161718192021
22232425262728
293031

Sideway BICK Blog

22/05

Copyright © 2000-2020 Sideway . All rights reserved Disclaimerslast modified on 26 January 2013