VBS variable

[PepsiHog]

Hello Everyone,

How can I get my var (MyDrive) in my function to work as the drive specification in Line 4. (I'm counting VBStart as a line, like MS)


[code]
VBSTART
Function DoDriveSpace (MyDrive)
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='MyDrive')"
end function
VBEND

let>MyDrive="D:"
VBEval>DoDriveSpace(%MyDrive%),SpaceOnD

[/code]

Thanks,
PepsiHog

[armsys]

Hi PepsiHog,
Hope the following script helps:
VBStart
Function DriveExist(drive)
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
DriveExist = "NO"
If fso.DriveExists(drive) Then
DriveExist = "YES"
End If
End Function
VBEnd
Let>IsDrive_Z=NO
VBEval>DriveExist("Z:"),IsDrive_Z

[PepsiHog]

Thanks for helping armsys.


SOLVED. I kept playing around and figured it out.

[code]
VBSTART
Function DoDriveSpace(mydrive)
Dim Wazoo
wazoo = "Win32_LogicalDisk.DeviceID=" & "'" & mydrive & "'"
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get(wazoo)
DoDriveSpace = objLogicalDisk.FreeSpace
end function
VBEND

let>Drive=D:
VBEval>DoDriveSpace("%Drive%"),SpaceOnDrive
mdl>%SpaceOnDrive%
[/code]

Drink Pepsi, Get Fat,
PepsiHog