I am running this piece of code :-
Do Until Len(sFilename) = 0
Progress.Text = Progress.Text & vbCrLf & "Extracting Text from " & sFilename
Progress.Text = Progress.Text & vbCrLf & "Exporting to " & Left(sFilename, Len(sFilename) - 4) & ".dbf"
sFilename = Dir()
But the Progress field is not updated until the whole thing has finished. Is it possible to have a way of showing the progress as it goes?