Help modifing

• • Reply

  13 years ago

  by Binaries

  Tom

  , Australia

  Joined 13 years ago
  I came up with this code to load the file names into a combo box but i get the file extenstion as well as a few other parts can anyone help me modify this code.
  My outcome is :
  .
  ..
  test.tps
  
  "." and ".." being the directries i believe and test.tps being the file. I want to remove .tps and the "." and ".." Thanks
  
  Dim sPath As String
  Dim sTmp As String
  sPath = App.Path & "\Students\"
  
      sTmp = Dir(sPath, vbDirectory)
      Do While sTmp <> ""
              CmbSelect.AddItem sTmp
          sTmp = Dir
      Loop
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  13 years ago

  by ErwinB

  Erwin Bergsma

  Leuven, Belgium

  Joined 15 years ago

  I think it should be something like this:

  Dim sPath As String
  Dim sTmp As String
  sPath = App.Path & "\Students\*.*"
  sTmp = Dir(sPath, vbNormal)
  While sTmp <> ""
     If Left(sTmp,1) <> "." Then
        sTmp = Left(sTmp, InStr(sTmp, ".") - 1)
        cmbSelect.AddItem sTmp
        sTmp = Dir
  Wend
  
  
  
  
  
  
  
  
  

  Regards,

  Erwin

  Report abuse
• • Reply

  13 years ago

  by Kassem

  Kassem Baalbaki

  Riyadh, Saudi Arabia

  Joined 14 years ago

  Hi,

  Just do not forget the "End If" before the "Wend"

  Report abuse
• • Reply

  13 years ago

  by ErwinB

  Erwin Bergsma

  Leuven, Belgium

  Joined 15 years ago

  Oops...

  Thanks for catching that one.  I obviously didn't do that code in VB, but straight on the site.

  Report abuse