vbscripting/special_folders.vbs
2022-10-11 11:29:27 +04:00

4 lines
250 B
Text

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
MsgBox "0 = " & Fso.GetSpecialFolder(0) & vbCrLf & "1 = " & Fso.GetSpecialFolder(1) & vbCrLf & "2 = " & Fso.GetSpecialFolder(2)
MsgBox "System drive = " & Fso.GetSpecialFolder(0).Drive