Help!! Insert into a table using VB

[Lars Erik Hansen]

I want to write/insert the value of foundFiles into a table.

How can i paste a value into a table using VB??
Can someone help?
I want to get "FoundFiles(i)" and paste it into a table

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileType = msoFileTypeBinders
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" Binder file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Binder files found."
End If
End With

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[DFS]

dim db as database
set db = currentDb()

<your code>
For i = 1 To .FoundFiles.Count
db.execute("INSERT INTO Table (FieldName) VALUES ('" & FoundFiles(i).Name &
"');")
Next i
<your code>

db.close

"Lars Erik Hansen" <ko*********@hotmail.com> wrote in message
news:3f***********************@news.frii.net...

I want to write/insert the value of foundFiles into a table.

How can i paste a value into a table using VB??
Can someone help?
I want to get "FoundFiles(i)" and paste it into a table

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileType = msoFileTypeBinders
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" Binder file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Binder files found."
End If
End With

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!