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.

"Brent" wrote:

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

otherwise you just get files with no name.


"Shadok" wrote:

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