asdf1234

i got an error "object does not support this property or method"
the following is the code

Public Sub sc()
dirige = App.Path

Set fos = CreateObject("Scripting.FileSystemObject")
Set objfso = CreateObject("Scripting.FileSystemObject")
Set worddoc = WordApp.Documents.Open(dirige & element.Name)
Set appword = CreateObject("Word.Application")
Set BArepertoire = fos.GetFolder(dirige & "\SC\")
For Each element In BArepertoire.Files
'Set fle2 = appword
Set fle2 = objfso.openwordfile(dirige & "\sc\" & element.Name)

'Set repertoire = fos.GetFolder(dirige & "\C:\Documents and Settings\bhasoo\Desktop\SC Dispute\")

Do While Not fle2.AtEndOfStream
With worddoc.Sections(1)

If InStr(strline, "name") Then ' the "name" is on a text file.
dbno = Mid(strline, 28, 12)' i collect the values here
TxtDebtorNumber.Text = dbno' then this value is pasted in a text box