; AutoItCOM 3.1.1
;
; Test File
;
; Tests the SearchFiles() function of Microsoft Excel
Func SearchFiles($strFileSpec, $Subdirs = 0)
 $strFileList=""
 $oXlApp = ObjCreate("Excel.Application")
 $fsoFileSearch = $oXlApp.FileSearch
 If @error then 
 Msgbox(0,"SearchFiles","Error opening FileSearch Object")
 Else
 With $fsoFileSearch
 .NewSearch
 .LookIn = "c:\"
 .FileName = $strFileSpec
 .SearchSubFolders = $SubDirs
 $Number = .Execute()
 If $Number> 0 Then
	 For $i = 1 To .FoundFiles.Count
		$strFileList = $strFileList & .FoundFiles($i) & @CRLF
	 Next 
 EndIf
 EndWith
 Endif
 
 $fsoFileSearch = ""
 $oxlApp.quit
 $oxlApp=""
 Return $strFileList
EndFunc
; Example usage:
$Result = SearchFiles(@WindowsDir & "\*.txt",0)
MsgBox(0,"FileSearch Object test", "SearchFiles on '" & @WindowsDir & "\*.txt' resulted in:" & @CRLF & @CRLF & $Result )
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://www.autoitscript.com/autoit3/files/beta/autoit/COM/FileSearchTest.au3">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://www.autoitscript.com/autoit3/files/beta/autoit/COM/FileSearchTest.au3" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>