>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
*------------------------------