4 lines
250 B
Text
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
|