Results 1 to 2 of 2
  1. #1
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,475
    Provided Answers: 11

    Unanswered: What am Missing here

    Code:
    Sub Get_USB_DRIVES(ctrl As ComboBox)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Set Drives = FSO.Drives
    ctrl.items.Clear      
    For Each DiskDrive In Drives
        If DiskDrive.DriveType = 1 Then
            ctrl.AddItem DiskDrive.DriveLetter & ":"
        End If
    Next
    
    End Sub
    its erroring on this line ctrl.items.Clear

    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

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    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

  2. #2
    Join Date
    Apr 2004
    Location
    Derbyshire, UK
    Posts
    803
    Provided Answers: 2
    Quote Originally Posted by myle
    Code:
    Sub Get_USB_DRIVES(ctrl As ComboBox)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Set Drives = FSO.Drives
    ctrl.items.Clear      
    For Each DiskDrive In Drives
        If DiskDrive.DriveType = 1 Then
            ctrl.AddItem DiskDrive.DriveLetter & ":"
        End If
    Next
    
    End Sub
    its erroring on this line ctrl.items.Clear


    if I take out ctrl.items.Clear line it works GREAT

    but I want to clear the list each time first
    Hi

    Have you tried this
    Code:
    Sub Get_USB_DRIVES(ctrl As ComboBox)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Set Drives = FSO.Drives
    ctrl.RowSource = ""     
    For Each DiskDrive In Drives
        If DiskDrive.DriveType = 1 Then
            ctrl.AddItem DiskDrive.DriveLetter & ":"
        End If
    Next
    
    End Sub
    ??

    MTB

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •