Wow! Thats alot of stuff reported.
Peter
>>Hi all,
>>
>>I want to set something up on a form that will allow the user to select from a list of valid drives on the system (C:, F:, etc.). I'd like to do this with a listbox or a spinner.
>>
>>How can I determine what the valid drives would be? Once that's determined, how do I get a list of the valid folders on that drive?
>>
>>Thanks!
>>
>>John
>
>
>One of the solutions:
>
>Use shellexec to run NET USE > c:\report.log. Then work with LOG file.
>
>Another solution:
>
>
>WMI = GetObject("WinMgmts:")
>*Logical Disk
>objs = WMI.InstancesOf("Win32_LogicalDisk")
>DO iCollect with objs, "LogicalDisk"
>objs=null
>
>*---------------------------------------
>PROCEDURE iCollect
>LPARAMETERS pObject, pCursName
>
>LOCAL ia, oItem
>
>CREATE curs (pCursName) (Item c(90),property c(55), proptype c(1),propvalue c(150), valueiflong M)
>ia=0
>FOR EACH oItem IN pObject
> ia=ia+1
> WITH oItem
>
> m.Item = ALLTRIM(.name)
> m.valueiflong=""
> IF .Properties_.Count >0
> FOR EACH oProperty IN .Properties_
> m.property=ALLTRIM(oproperty.Name)
> m.proptype=TYPE("oproperty.Value")
> IF m.proptype#"A"
> m.propvalue=ALLTRIM(TRANSFORM(oproperty.Value))
> IF LEN(m.propvalue)>150
> m.valueiflong=m.propvalue
> m.propvalue=""
> ENDIF
> ELSE
> m.propvalue="?????????"
> endif
> INSERT INTO (pCursName) FROM memvar
> ENDFOR
> ELSE
> INSERT INTO (pCursName) (Item) VALUES (m.Item)
> ENDIF
> ENDWITH
>
>ENDFOR
>
>RETURN
>*------------------------------
>
>
Peter Cortiel