Script, Scripting Language, VBScript elements, Server-Side VBScript FileSystemObject File Object
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
File Object
last updated 12/16/2017is to provide access to a file.inside a folder of a computer's file system.
File Methods
last updated 12/16/2017Four 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 12/16/2017Twelve 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 /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,"&","&")," "," "),"""","""),"<","<"),">",">"): 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 /internet/users/sideblog/default.asp
varsstrs, TypeNameSet sysfso = CreateObject("Scripting.FileSystemObject"): Set fsodrv=sysfso.Drives("R:"): strs=typename(fsodrv)[Drive], Stringstrs=fsodrv.AvailableSpace[4249089536], Doublestrs=fsodrv.DriveLetter[R], Stringstrs=fsodrv.DriveType[2], Longstrs=fsodrv.FileSystem[NTFS], Stringstrs=fsodrv.FreeSpace[4249089536], Doublestrs=fsodrv.IsReady[True], Booleanstrs=fsodrv.Path[R:], Stringstrs=fsodrv.RootFolder[R:\], Stringstrs=fsodrv.SerialNumber[28872], Longstrs=fsodrv.ShareName[], Stringstrs=fsodrv.TotalSize[4294966784], Doublestrs=fsodrv.VolumeName[RAMDISK], String