web- VBScript
FileSystemObject (FSO) , Windows . , ..
Drive , . , . :
- ( TotalSize)
- ( AvailableSpace FreeSpace)
- ( DriveLetter)
- : , , , CD-ROM RAM- ( DriveType)
- ( SerialNumber)
- : FAT, FAT32, NTFS . ( FileSystem)
- ( IsReady)
- ( ShareName VolumeName)
- ( Path RootFolder)
Drive
Drive . Drive . GetDrive Drive ( drv).
Drive VBScript:
Sub ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = " " & UCase(drvPath) & " - "
s = s & drv.VolumeName
s = s & ", : " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb"
s = s & ", : " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " Kb"
MsgBox s
End Sub
ShowDriveInfo("C:"):
| FileSystemObject.CreateFolder | |
| Folder.Delete FileSystemObject.DeleteFolder | |
| Folder.Move FileSystemObject.MoveFolder | |
| Folder.Copy FileSystemObject.CopyFolder | |
| Folder.Name | |
| , | FileSystemObject.FolderExists |
| Folder | FileSystemObject.GetFolder |
| FileSystemObject.GetParentFolderName | |
| FileSystemObject.GetSpecialFolder |
. <3.7. FileSystemObject>.
Folder FileSystemObject, :
Sub ShowFolderInfo()
Dim fso, fldr, s
' FileSystemObject.
Set fso = CreateObject("Scripting.FileSystemObject")
' Drive.
Set fldr = fso.GetFolder("c:")
' .
MsgBox " : " & fldr
' .
MsgBox " " & fldr.Drive
' .
If fldr.IsRootFolder = True Then
MsgBox " "
Else
MsgBox " "
End If
'
fso.CreateFolder ("C:\Bogus")
MsgBox " C:\Bogus"
'
MsgBox " = " & fso.GetBaseName("c:\bogus")
'
fso.DeleteFolder ("C:\Bogus")
MsgBox " C:\Bogus"
End Sub
, , Inheritance - - - , , (-) (-) . .
 | 10.11.2021 - 12:37: - Personalias -> WHO IS WHO - - _. 10.11.2021 - 12:36: - Conscience -> . ? - _. 10.11.2021 - 12:36: , , - Upbringing, Inlightening, Education -> ... - _. 10.11.2021 - 12:35: - Ecology -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> . - _. 10.11.2021 - 12:34: , , - Upbringing, Inlightening, Education -> , - _. 10.11.2021 - 09:18: - New Technologies -> , 5G- - _. 10.11.2021 - 09:18: - Ecology -> - _. 10.11.2021 - 09:16: - Ecology -> - _. 10.11.2021 - 09:15: , , - Upbringing, Inlightening, Education -> - _. 10.11.2021 - 09:13: , , - Upbringing, Inlightening, Education -> - _. |
|
|
 |