<% '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) & "
" s = s & drv.driveType & "
" s = s & drv.FileSystem & "
" s = s & drv.IsReady & "
" s = s & drv.Path & "
" s = s & drv.RootFolder & "
" s = s & drv.ShareName & "
" s = s & drv.VolumeName & "
" s = s & drv.driveType & "
" Response.Write s %>