Erhm, help..

[Tanaht]

Okay, this has to do with listboxes. I am trying to get it in the Form_Load part, I want the list box to look for all the .rpr files in the folder, and make them list items (minus the .rpr). Also, I need it to refresh at will. Can someone help me with this?

--
Visual Basic 6

Why don't you just use a FileListBox?

To refresh the listbox, just use file1.Refresh

Or for a listbox, as you want:

Dim FileFinder
FileFinder = Dir("C:\*.rpr")
Do Until FileFinder = ""
List1.AddItem LCase(FileFinder)
FileFinder = Dir
Loop

[Edited by Matthew Gates on 06-29-2000 at 02:44 AM]

[KWell]

For make this, you must have a listbox (list1) and a command button to refersh the list (CmdRefresh)
In his case, your code would something like this

Private Sub CmdRefresh_Click()
 Dim File As String
 ' replace c:\ by your directory
 File = Dir("C:\" & "*.rpr")
 List1.Clear
 While File <> ""
  List1.AddItem GetFileNameWithoutExtension(File)
  File = Dir
 Wend
End Sub

Function GetFileNameWithoutExtension(ByVal FileName As String) As String
 ' This function suppress the extension
 Dim FileN As String
 Dim TabFile() As String
 Dim i As Integer
 FileName = GetFileName(FileName)
 ' we split the string with the separator "." and send this in a array (SPLIT is a VB function)
 TabFile = Split(FileName, ".")
 FileN = ""
 ' we re-built the string without the last element of the array
 ' Uboud give then last index use in the array
 For i = 0 To UBound(TabFile) - 1
  If FileN <> "" Then FileN = FileN & "."
  FileN = FileN & TabFile(i)
 Next i
 GetFileNameWithoutExtension = FileN
End Function