Link:http://output.to/sideway/default.asp?qno=180500028 Script, Scripting Language, VBScript elements, Server-Side VBScript FileSystemObject Drive Object
VBScript FSO Drive Object
Drive Object is a VBScript Object designed for manipulating all available drives returned by Drives Propery of FileSystemObject Object. Drive Object is the top level object of the file system object returned by the Drives Property of FileSystemObject Object. However Drive Object is mainly used to specify the specification of the file container.
For each Drive Object of the Drives Collection returned by Drives Property of FileSystemObject Object, twelve Properties are provided for the manipulation the properties of each individual drive object. Besides, the RootFolder Property can also be used to return a Folder Object.
- Drive Property
- AvailableSpace Property
- DriveLetter Property
- DriveType Property
- FileSystem Property
- FreeSpace Property
- IsReady Property
- Path Property
- RootFolder Property [≡ Folder Object]
- SerialNumber Property
- ShareName Property
- TotalSize Property
- VolumeName Property
Drive Objectlast updated 12/14/2017is to provide access to a drive or network share of a computer's file system.
SyntaxSet fsodriveobjvar=fsoobjvar.Drives.Item(key)
Drive Propertieslast updated 12/15/2017Twelve Properties are predefined to manipulate the properties of a Drive Object obtained from the Drives Collection returned from the Drives Property of FileSystemObject Object.
Syntaxfsodriveobjvar.AvailableSpace fsodriveobjvar.DriveLetter fsodriveobjvar.DriveType fsodriveobjvar.FileSystem fsodriveobjvar.FreeSpace fsodriveobjvar.IsReady fsodriveobjvar.Path fsodriveobjvar.RootFolder fsodriveobjvar.SerialNumber fsodriveobjvar.ShareName fsodriveobjvar.TotalSize fsodriveobjvar.VolumeName [= newname]
ExamplesExamples 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:""): Set strs=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="Set 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:"): Set strs=fsodrv[R:], Drivestrs=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:\], StringSet strs=fsodrv.RootFolder[R:\], Folderstrs=fsodrv.SerialNumber[28872], Longstrs=fsodrv.ShareName[], Stringstrs=fsodrv.TotalSize[4294966784], Doublestrs=fsodrv.VolumeName[RAMDISK], String
|
|