Asp > Components sample source codes

 Know all drive properties through file system

Know all drive properties through file system <% 'Know all drive properties through file system object Dim fso, drv, s,strDir 'if directory name is H:\docuemnts strDir="H:\docuemnts\" Set fso = CreateObject("Scripting.FileSystemObject") Set drv = fso.GetDrive(fso.GetDriveName(strDir)) s = "Drive " & UCase(drv.Path) & "<br>" s = s & drv.driveType & "<br>" s = s & drv.FileSystem & "<br>" s = s & drv.IsReady & "<br>" s = s & drv.Path & "<br>" s = s & drv.RootFolder & "<br>" s = s & drv.ShareName & "<br>" s = s & drv.VolumeName & "<br>" s = s & drv.driveType & "<br>" Response.Write s %>



Privacy Policy | Link to Us | Links