Unanswered: What am Missing here
its erroring on this line ctrl.items.Clear
Sub Get_USB_DRIVES(ctrl As ComboBox)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives
For Each DiskDrive In Drives
If DiskDrive.DriveType = 1 Then
ctrl.AddItem DiskDrive.DriveLetter & ":"
if I take out ctrl.items.Clear line it works GREAT
but I want to clear the list each time first
Last edited by myle; 06-04-09 at 20:41.
hope this help
the aim is store once, not store multiple times
Remember... Optimize 'til you die!
Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
VB-NET based on my own environment started 2007
SQL-2005 based on my own environment started 2008
YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
THEY'RE BEHIND YOU FOR A REASON