VBScript     . - 3GL   - 4GL   DB-

web- VBScript

FileSystemObject (FSO) , Windows . , ..


Drive , . , . :

. <3.7. FileSystemObject>.


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

  VBScript     . - 3GL   - 4GL   DB-


, - - - , :
- ;
- .




 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 -> - _.
Bourabai Research -  XXI Bourabai Research Institution