Script, Scripting Language, VBScript elements, Server-Side VBScript FileSystemObject Folder Object
VBScript FSO Folder Object
Folder 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
Folder Object
last updated 12/16/2017is to provide access to a folder of a computer's file system..
Folder Methods
last updated 12/16/2017Four Methods are provided for manipulating the Folder Object.
Syntax
fsofolderobjvar.Copy( destination[, overwrite] )
fsofolderobjvar.Delete( [force])
fsofolderobjvar.Move( destination )
fsofolderobjvar.CreateTextFile(filename[, overwrite[, unicode]])
Folder Properties
last updated 12/16/2017Fifteen Properties are provided for manipulation the properties of Folder Objects.
Syntax
fsofolderobjvar.Attributes [= newattributes]
fsofolderobjvar.DateCreated
fsofolderobjvar.DateLastAccessed
fsofolderobjvar.DateLastModified
fsofolderobjvar.Drive
fsofolderobjvar.Files
fsofolderobjvar.IsRootFolder
fsofolderobjvar.Name [= newname]
fsofolderobjvar.ParentFolder
fsofolderobjvar.Path
fsofolderobjvar.ShortName
fsofolderobjvar.ShortPath
fsofolderobjvar.Size
fsofolderobjvar.SubFolders
fsofolderobjvar.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