KiXtart Question?? (Wrong place I know but it's teh same lingo almost :-) )

J

JB

Can anyone help me here I'm stuck? Trying to check for a free drive letter!
the reslut thingy works without all the extra gubbins but I can't seem to
get access to teh array properly ?

Cheers

J

break on
$Drives = GetObject("winmgmts:").ExecQuery("select Name,DriveType from
Win32_LogicalDisk")

if @error <> 0
? @error + " / " @serror
else

$Letts = 26

DIM $DriveLetts[$Letts]

$DriveLetts[1] = "A"
$DriveLetts[2] = "B"
$DriveLetts[3] = "C"
$DriveLetts[4] = "D"
$DriveLetts[5] = "E"
$DriveLetts[6] = "F"
$DriveLetts[7] = "G"
$DriveLetts[8] = "H"
$DriveLetts[9] = "I"
$DriveLetts[10] = "J"
$DriveLetts[11] = "K"
$DriveLetts[12] = "L"
$DriveLetts[13] = "M"
$DriveLetts[14] = "N"
$DriveLetts[15] = "O"
$DriveLetts[16] = "P"
$DriveLetts[17] = "Q"
$DriveLetts[18] = "R"
$DriveLetts[19] = "S"
$DriveLetts[20] = "T"
$DriveLetts[21] = "U"
$DriveLetts[22] = "V"
$DriveLetts[23] = "W"
$DriveLetts[24] = "X"
$DriveLetts[25] = "Y"
$DriveLetts[26] = "Z"

for each $Drive in $Drives

$result = $Drive.Name

for each $element in $Driveletts
$me = SPLIT($Driveletts)
if $result = $me
$taken = TRUE
else
$taken = false
$SPDRV = $result
MESSAGEBOX($me,"test")
endif
next

? $result
;messagebox($result,"test")
next
 
Top