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

    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 21:41.
    hope this help

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  2. #2
    Join Date
    Apr 2004
    Location
    Derbyshire, UK
    Posts
    789
    Provided Answers: 1
    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
  •