Sideway
output.to from Sideway






Draft for Information Only

VBScript FSO File Object

File Object is a VBScript Object designed for manipulating all returned Folder Object. Although Folder Object is the middle level object of the file system object, Folder Object is the actual container of the filing system manipulated by FileSystemObject Object. In other words, Folder Object is mainly used to specify the organisation of the filing system inside a container.

For each Drive Object of the Drives Collection returned by Drives Property of FileSystemObject Object, twelve Properties are provided for the manipulation of each individual drive object.

  • FSO Folder Object
    • Folder Method
      • Copy Method
      • Delete Method
      • Move Method
      • CreateTextFile Method ≡ TextStream object
    • Folder Property
      •  Property

File Object

last updated 2017/12/16

is to provide access to a file.inside a folder of a computer's file system.

File Methods

last updated 2017/12/16

Four Methods are provided for manipulate the File Object.

Syntax

fsofileobjvar.Copy( destination[, overwrite] )
fsofileobjvar.Delete( [force])
fsofileobjvar.Move( destination )
fsofileobjvar.OpenAsTextStream([iomode, [format]])

File Properties

last updated 2017/12/16

Twelve Properties are provided for manipulating the File Object

Syntax

fsofileobjvar.Attributes [= newattributes]
fsofileobjvar.DateCreated
fsofileobjvar.DateLastAccessed
fsofileobjvar.DateLastModified
fsofileobjvar.Drive
fsofileobjvar.Name [= newname]
fsofileobjvar.ParentFolder
fsofileobjvar.Path
fsofileobjvar.ShortName
fsofileobjvar.ShortPath
fsofileobjvar.Size
fsofileobjvar.Type

Examples

Examples of FileSystemObject Drive 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 /sideway/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 fsodrv=sysfso.Drives(""R:""): strs=typename(fsodrv)":dsp_x
vars="strs=fsodrv.AvailableSpace":dsp_x
vars="strs=fsodrv.DriveLetter":dsp_x
vars="strs=fsodrv.DriveType":dsp_x
vars="strs=fsodrv.FileSystem":dsp_x
vars="strs=fsodrv.FreeSpace":dsp_x
vars="strs=fsodrv.IsReady":dsp_x
vars="strs=fsodrv.Path":dsp_x
vars="strs=fsodrv.RootFolder":dsp_x
vars="strs=fsodrv.SerialNumber":dsp_x
vars="strs=fsodrv.ShareName":dsp_x
vars="strs=fsodrv.TotalSize":dsp_x
vars="strs=fsodrv.VolumeName":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 /sideway/default.asp
varsstrs, TypeNameSet sysfso = CreateObject("Scripting.FileSystemObject"): Set fsodrv=sysfso.Drives("R:"): strs=typename(fsodrv)[Drive], Stringstrs=fsodrv.AvailableSpace[4599277568], Doublestrs=fsodrv.DriveLetter[R], Stringstrs=fsodrv.DriveType[2], Longstrs=fsodrv.FileSystem[NTFS], Stringstrs=fsodrv.FreeSpace[4599277568], Doublestrs=fsodrv.IsReady[True], Booleanstrs=fsodrv.Path[R:], Stringstrs=fsodrv.RootFolder[R:\], Stringstrs=fsodrv.SerialNumber[20276], Longstrs=fsodrv.ShareName[], Stringstrs=fsodrv.TotalSize[8388607488], Doublestrs=fsodrv.VolumeName[RAMDISK], String

©sideway

ID: 180600006 Last Updated: 2018/6/6 Revision:

IMAGE

Home (1)

Business

Management

HBR (3)

Information

Recreation

Hobbies (7)

Culture

Chinese (1097)

English (330)

Reference (60)

Computer

Hardware (137)new

Software

Application (184)

Digitization (22)

Numeric (19)

Programming

Web (507)new

HTML

Knowledge Base

Common Color (1)

Html Entity (Unicode) (1)

Html 401 Special (1)

OS (302)new

MS Windows

Windows10 (1)

DeskTop (5)

Knowledge

Mathematics

Formulas (7)

Number Theory (51)

Algebra (14)

Trigonometry (18)

Geometry (18)

Calculus (66)

Engineering

Tables (8)

Mechanical

Control

Process Control (1)

Mechanics (1)

Rigid Bodies

Statics & Dynamics (128)

Fluid (5)

Fluid Kinematics (5)

Acoustics (19)

FiniteElement (2)

Biology (1)

Geography (1)


facebook
Latest Updated Links

Copyright © 2000-2018 Sideway . All rights reserved Disclaimersfacebook last modified on 08 Mar 2018