View Single Post
Old Yesterday, 07:38 AM   #11
phossler
Wizard
phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.phossler ought to be getting tired of karma fortunes by now.
 
Posts: 1,095
Karma: 447222
Join Date: Jan 2009
Location: Valley Forge, PA, USA
Device: Kindle Paperwhite
Don't know if it helps but I have a VBS sub that checks for drive type

It tags my Google drive (which I map to a letter) as a network drive

No idea about OneDrive since I don't use it

Code:
'DriveType values:

'Value	Drive Type
Const drvUnknown = 0	        '   Unknown
Const drvRemoveable = 1	        '   Removable (USB flash drive, floppy disk, etc.)
Const drvFixed = 2              '   hard disk, SSD
Const drvNetwork = 3            '   Network drive
Const drvCDROMDVD = 4           '   CD / DVD drive
Const drvRAM = 5                '   RAM disk

Dim fso, drv

Set fso = CreateObject("Scripting.FileSystemObject")

For Each drv In fso.Drives
    WScript.Echo drv.DriveLetter & ":  Type=" & drv.DriveType
    
    if drv.DriveType = drvNetwork then Wscript.Echo "That's a Network Drive"
    
Next
phossler is offline   Reply With Quote