Combo box Not showing data after routine

[fordraiders]

vb.net 2003


I 'am running a routine.
A form opens up
Loads Files into combo box from a dir
I delete the file.
and then copy new files back into folder

This is the same code I'am using to load the combo box when the form opens.

Problem:
Combo box is not resetting correctly and showing me the new files I have copied
back into the folder...

' code============
Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
Dim ExcelFile As String
Dim FindFiles() As String = System.IO.Directory.GetFiles("C:\Dm2007\Inbox\", "*.xls") ' filter only excel files *.xls

RestartText()
' Run Access Macros for restart
AccRestart()
For Each ExcelFile In FindFiles
' cboFileLoad.Items.Add(ExcelFile) 'all the dir and file name
cboFileLoad.Items.Add(ExcelFile.Substring(ExcelFil e.LastIndexOf("\"c) + 1))
Next

cboFileLoad.Refresh()

MsgBox("Process Steps Reset", MsgBoxStyle.Information, "Reset Example Tables")

End Sub

Other Routines:
Private Sub AccRestart()

Dim oAccess As New Microsoft.Office.Interop.Access.Application
'Start Access and open the database.
oAccess = CreateObject("Access.Application")
oAccess.Visible = False
oAccess.OpenCurrentDatabase("C:\dm2007\ImpData.mdb ", False)
'Run the macros.
oAccess.Run("Reset1")
'Clean-up: Quit Access without saving changes to the database.
oAccess.Quit()
oAccess = Nothing
'============================
End Sub

Private Function RestartText()
' DELETE FILES First
' Do The Filing System stuff
System.IO.File.Copy("C:\Dm2007\TextFilesSamples\Or iginal\RemoveSpecialTest.txt", "C:\Dm2007\TextFilesSamples\RemoveSpecialTest.txt" , True)
System.IO.File.Copy("C:\Dm2007\TextFilesSamples\Or iginal\ReplaceTest.txt", "C:\Dm2007\TextFilesSamples\ReplaceTest.txt", True)
System.IO.File.Copy("C:\Dm2007\TextFilesSamples\Or iginal\StripVowels.txt", "C:\Dm2007\TextFilesSamples\StripVowels.txt", True)
System.IO.File.Copy("C:\Dm2007\TextFilesSamples\Or iginal\VendNameTest.txt", "C:\Dm2007\TextFilesSamples\VendNameTest.txt", True)
System.IO.File.Copy("C:\Dm2007\Original\SearchRepl aceTables.xls", "C:\Dm2007\Inbox\SearchReplaceTables.xls", True)


End Function


Thanks
fordraiders

[jaketrimble]

I am not exactly sure, but you have declard ExcelFile as a string, but it has no assigned value.

When you move to your "for each" statement ExcelFile is still empty.

rough example:

dim xlsFile as File or Object 'im not sure

for each xlsFile in system.io.directory.getfiles("blah","*xls")

combobox.items.add(xlsfile)

next xlsFile

[fordraiders]

Thanks
Wow! It worked..!
However, In the combobox I do not need to see the dir reference..
It shows:

c:\dm2007\inbox\<filename>.xls
I just need to see
<filename>.xls

Appreciate the help ! Very very much.!

[jaketrimble]

Thanks
Wow! It worked..!
However, In the combobox I do not need to see the dir reference..
It shows:

c:\dm2007\inbox\<filename>.xls
I just need to see
<filename>.xls

Appreciate the help ! Very very much.!

you should be able to do this...

for each ...

combobox.items.add(System.IO.Path.GetFileName(xlsF ile))

next...