Listbox doubles up on directory contents...why? Access 2000

[NDayave]

How do,

I have a (Access 2000) list box that returns all the files in a directory (CurrentProject.Path & "\Backup") to be used to restore backup of the database. My problem is that the first row of the list always has a double name ie:

Row 1: <Filename1><Filename1>
Row 2: <Filename2>
Row 3: <Filename3>
etc.

I would like to either get rid of the second filename in row 1, or totally mask out the first row, as either solution is acceptable.

Thats all the code for the list box and executes on Form_Load (No more, no less)

Dim strDir As String
Dim strFile As String
Dim strFolder As String
 
 
strFolder = CurrentProject.Path & "\Backup"
strDir = strFolder
lstRestore.RowSourceType = "Value List"
lstRestore.RowSource = ""
strFile = Dir(strDir & "\*")
If strFile = "" Then
  msgbox ("No files found in " & strDir)
  Exit Sub
End If
Do While strFile <> ""
  If lstRestore.RowSource = "" Then
    lstRestore.RowSource = strFile
  Else
    lstRestore.RowSource = lstRestore.RowSource & strFilename
    strFile = Dir()
    If strFile <> "" Then lstRestore.RowSource = lstRestore.RowSource & ";"
  End If
Loop
lstRestore.Value = Null
 

I think the problem is with the line "lstRestore.RowSource = lstRestore.RowSource & strFilename" (6th from bottom), but when i tried deleting either aspect of the rowsource a full file list of the directory wasn't given.

All help is appreciated,

NDayave

[MMcCarthy]

Try this ...

Dim strDir As String
Dim strFile As String
Dim strFolder As String
 
strFolder = CurrentProject.Path & "\Backup"
strDir = strFolder
lstRestore.RowSourceType = "Value List"
lstRestore.RowSource = ""
strFile = Dir(strDir & "\*")
If strFile = "" Then
  msgbox ("No files found in " & strDir)
  Exit Sub
End If
Do While strFile <> ""
  If lstRestore.RowSource = "" Then
    lstRestore.RowSource = strFile
    strFile = Dir()
    If strFile <> "" Then lstRestore.RowSource = lstRestore.RowSource & ";"
  Else
    lstRestore.RowSource = lstRestore.RowSource & strFilename
    strFile = Dir()
    If strFile <> "" Then lstRestore.RowSource = lstRestore.RowSource & ";"
  End If
Loop
lstRestore.Value = Null
 

[NDayave]

I appreciate the help, but although the code has got rid of the double filename, it now only shows the first file in the Directory. I have however found a solution, but am grateful nontheless for your time.

NDayave

[NeoPa]

Would you mind posting your solution then :)
That will give a solution to anyone researching a similar question.