M
mp
more newbie questions
in context of Microsoft.VisualBasic.FileIO.FileSystem.FindInFiles(sFolder,
sFindThisString, ignoreCase, searchType, sFileNameFilter)
sFileNameFilter is an array of strings for filename matches
I'm not finding in help how to create an array none of the examples given in
help work in this context
(array statement or function from vb6 no longer exists)
(select case variations)
trying to build paramarray for sFileNameFilter to honor multiple matches
such as
Dim sFileNameFilter() As String
Select Case iLispOrVb
Case 1
ReDim sFileNameFilter (1) = {"*.lsp", "*.txt"}' doesn't work (end of
statement expected)
Case 2
'sFileNameFilter = {"*.bas", "*.cls", "*.frm", "*.txt"} 'doesn't work
(expeccted expression)
'sFileNameFilter() = {"*.bas", "*.cls", "*.frm", "*.txt"} 'doesn't work
(expeccted expression)
ReDim sFileNameFilter(3) = {"*.bas", "*.cls", "*.frm", "*.txt"}' doesn't
work (end of statement expected)
End Select
Thanks for any tips
mark
in context of Microsoft.VisualBasic.FileIO.FileSystem.FindInFiles(sFolder,
sFindThisString, ignoreCase, searchType, sFileNameFilter)
sFileNameFilter is an array of strings for filename matches
I'm not finding in help how to create an array none of the examples given in
help work in this context
(array statement or function from vb6 no longer exists)
(select case variations)
trying to build paramarray for sFileNameFilter to honor multiple matches
such as
Dim sFileNameFilter() As String
Select Case iLispOrVb
Case 1
ReDim sFileNameFilter (1) = {"*.lsp", "*.txt"}' doesn't work (end of
statement expected)
Case 2
'sFileNameFilter = {"*.bas", "*.cls", "*.frm", "*.txt"} 'doesn't work
(expeccted expression)
'sFileNameFilter() = {"*.bas", "*.cls", "*.frm", "*.txt"} 'doesn't work
(expeccted expression)
ReDim sFileNameFilter(3) = {"*.bas", "*.cls", "*.frm", "*.txt"}' doesn't
work (end of statement expected)
End Select
Thanks for any tips
mark