FileSearch parameters locked

[Guest]

Hi,

I want to open all the text files of a directory with the following code :

Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = "\\ACB0SR40\16055\Celine\Autocentrage\Fichiers mesure\"
.SearchSubFolders = False
.Filename = ".txt"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
NomFichier = .FoundFiles(i)
Workbooks.OpenText Filename:= _
.FoundFiles(i), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1,
1), _
Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True
..........

but when I run the code step by step I can that the LookIn parameter value
still only is "\\ACB0SR40\16055\" which is my default directory. So, there is
no .txt files found never.
How can I make my path be accepted ?
Thanks a lot for your help

 

[Guest]

i think for .Filename = ".txt" it should be .Filename = "*.txt"

otherwise you just get files with no name.

 

[Guest]

No, the trouble appears before.
At the step "With Application.FileSearch" the LookInd state is already
"\\ACB0SR40\16055\", and it doesn't change after the step ".LookIn =...." and
this for any directory I choose!! It's like as if it was locked, and I do'nt
how to unlock it.

 

[NickHK]

According to the Help on the FileSearch Object:
"Use the NewSearch method to reset the search criteria .......

Having said that, I would avoid the FileSearch as it appears flakey in its
results/behaviour. Also, it has been removed from Office 2007.
You can achieve all the same functionality with VBA's built-in Dir( ).

NickHK

 

[Guest]

I use Office 2003...but thanks a lot for the idea of Dir( ), it's easier and
it works !