Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
Does anyone know the rules for application file search, I have a curious
result from the following search in my application. If the string 'audit.csv' appears in any file in the chosen path I get True as file exists. Despite not including wild cards in the search string filename. My test reveal the following: 1. audit.csv =True 2. xxaudit.csv =True 3. auditxx.csv =False I would have expected option 2 to return False, is there something I should do in addition to fix this ? ' search for the audit.csv file if it exists Dim vFileExists As Boolean Application.FileSearch.LookIn = vPath Application.FileSearch.Filename = "audit.csv" If Application.FileSearch.Execute 0 Then vFileExists = True Else vFileExists = False End If ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
Hi All found the problem - I need to apply the following property to the
search. ..MatchTextExactly = True Cheers "Nigel" wrote in message ... Does anyone know the rules for application file search, I have a curious result from the following search in my application. If the string 'audit.csv' appears in any file in the chosen path I get True as file exists. Despite not including wild cards in the search string filename. My test reveal the following: 1. audit.csv =True 2. xxaudit.csv =True 3. auditxx.csv =False I would have expected option 2 to return False, is there something I should do in addition to fix this ? ' search for the audit.csv file if it exists Dim vFileExists As Boolean Application.FileSearch.LookIn = vPath Application.FileSearch.Filename = "audit.csv" If Application.FileSearch.Execute 0 Then vFileExists = True Else vFileExists = False End If ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
"Nigel" wrote in message ... Does anyone know the rules for application file search, I have a curious result from the following search in my application. If the string 'audit.csv' appears in any file in the chosen path I get True as file exists. Despite not including wild cards in the search string filename. My test reveal the following: 1. audit.csv =True 2. xxaudit.csv =True 3. auditxx.csv =False I would have expected option 2 to return False, is there something I should do in addition to fix this ? ' search for the audit.csv file if it exists Dim vFileExists As Boolean Application.FileSearch.LookIn = vPath Application.FileSearch.Filename = "audit.csv" If Application.FileSearch.Execute 0 Then vFileExists = True Else vFileExists = False End If ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
try this
Sub findonefile() With Application.FileSearch .NewSearch .LookIn = "C:\mydirectory" .Filename = "audit.csv" ahah = .Execute() End With MsgBox ahah 'got 1 means found 0=not found End Sub "Nigel" wrote in message ... Does anyone know the rules for application file search, I have a curious result from the following search in my application. If the string 'audit.csv' appears in any file in the chosen path I get True as file exists. Despite not including wild cards in the search string filename. My test reveal the following: 1. audit.csv =True 2. xxaudit.csv =True 3. auditxx.csv =False I would have expected option 2 to return False, is there something I should do in addition to fix this ? ' search for the audit.csv file if it exists Dim vFileExists As Boolean Application.FileSearch.LookIn = vPath Application.FileSearch.Filename = "audit.csv" If Application.FileSearch.Execute 0 Then vFileExists = True Else vFileExists = False End If ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
Nigel,
I don't know how to limit FileSearch's enthousiasm.. Why it wont except normal wildcards? Beyond me! ...except to filter the foundfile collection post execute. I've wrapped it into a function like this: NOT thoroughly tested but it seems to work (note that it's Excel2000 and newer only) Sub Test() Dim v v = FindIt("c:\dummy*.csv") End Sub Function FindIt(Search$) Dim res() As String Dim i As Integer ReDim res(1 To 1) With Application.FileSearch .NewSearch .LookIn = Left(Search, InStrRev(Search, "\")) .Filename = Mid(Search, InStrRev(Search, "\") + 1) .SearchSubFolders = False .Execute Search = LCase("*\" & .Filename) For i = 1 To .FoundFiles.Count If LCase(.FoundFiles(i)) Like Search Then ReDim Preserve res(1 To UBound(res) + 1) res(UBound(res) - 1) = .FoundFiles(i) End If Next End With If UBound(res) 1 Then ReDim Preserve res(1 To UBound(res) - 1) FindIt = res End If End Function keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool "Nigel" wrote: Does anyone know the rules for application file search, I have a curious result from the following search in my application. If the string 'audit.csv' appears in any file in the chosen path I get True as file exists. Despite not including wild cards in the search string filename. My test reveal the following: 1. audit.csv =True 2. xxaudit.csv =True 3. auditxx.csv =False I would have expected option 2 to return False, is there something I should do in addition to fix this ? ' search for the audit.csv file if it exists Dim vFileExists As Boolean Application.FileSearch.LookIn = vPath Application.FileSearch.Filename = "audit.csv" If Application.FileSearch.Execute 0 Then vFileExists = True Else vFileExists = False End If ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application.FileSearch | Excel Discussion (Misc queries) | |||
FileSearch in a combo box | Excel Discussion (Misc queries) | |||
FileSearch dislikes Zip-files | Excel Programming | |||
FileSearch Code | Excel Programming | |||
FileSearch Problem | Excel Programming |