Søgning på filnavn
Jeg bruger en sub til at tjekke om en fil eksisterer på et netværksdrev. Der er imidlertid nogle besynderlige ting på spil. Først kommer koden:Private Sub cmdLocate_Click()
Dim FSearch As Variant
Dim i As Integer
Set FSearch = Application.FileSearch
With FSearch
.NewSearch
.LookIn = me.txtPath
.Filename = "TEST.doc"
.FileType = msoFileTypeAllFiles
If .Execute(, , True) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Set FSearch = Nothing
End Sub
Nogen der kan hjælpe mig med at forstå hvorfor den også returnerer filnavnet, hvis jeg i filnavnet indsætter et vilkårligt tegn (f.eks. "x") først i filnavnet hvorved filnavnet bliver "xTEST.doc"?
Den returnerer (som den skal) ikke noget hvis det indsættes andre steder i filnavnet.
På forhånd tak.
